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ABSTRACT 


Nucleate pool boiling is an essential part of the vast cooling systems today’s 
combatant ship combat systems are dependent upon. Understanding the mechanisms 
that influence heat transfer in tube bundles in a liquid pool is the stepping stone for 
improving these cooling systems. This thesis attempts to bridge the gap between single 
tube performance and bundle performance by studying the effect of a lower heated tube 
on the heat transfer from an upper tube in a simple’ two tube bundle. This study con- 
cludes that a nucleating lower tube (regardless of the spacings tested between tubes) has 
a significant positive (i.e. improvement of heat transfer) influence an upon upper tube. 
This is especially evident for a smooth tube where any hysteresis effects are completely 
eliminated when the lower tube nucleates at a heat flux of 10 kW/m? or greater. Fur- 
thermore, the only influence for the pitch-to-diameter ratios tested was at the highest 
heat fluxes for the smooth tubes where a p/d of 1.8 was found to give the maximum heat 
transfer. No such maximum was obtained for the enhanced tubes. 
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Note that properties and measured parameters of the lower (auxiliary) tube are dif- 
ferentiated from the upper tube with A added to that property or parameter (i.e. ACp 
is the specific heat of the lower (auxiliary) tube). Though this may cause confusion with 
area dimensions, this nomenclature is preserved because it is used within programs 
SETUP72 ( appendix C) and DRP72 (appendix D). Note also that like tubes were used 


in upper and lower positions such that spatial dimensions are the same and are not dif- 


NOMENCLATURE 


ferentiated between tubes. 


A 
Ab 
Ac 


area 

tube outside surface area of active boiling section 
cross sectional area of the tube 

specific heat 

specific heat of lower (auxiliary) tube 

diameter 

tube inside diameter 

tube outside diameter 

diameter of the position of the thermocouple 
outer diameter of the boiling tube 

gravitational acceleration 

heat transfer coefficient 

heat transfer coefficient of lower tube 

current 

current for lower tube 

output voltage of AC currént sensor 

output voltage of AC current sensor for lower tube 
thermal conductivity of liquid 

thermal conductivity of liquid associated with lower tube 
thermal conductivity of copper 

active bouing tube length 


non-boiling tube length 


Nu Nusselt number 


p tube outside wall pcrimeter 

Pr Prandtl number 

APr Prandtl number associated with lower tube 

Q heat transfer rate from boiling surface 

AQ heat transfer rate from boiling surface of lower tube 

Of heat transfer rate through one non-boiling end 

AQf heat transfer rate through one non-boiling end of lower tube 
Qh heat transfer rate from cartridge heater 

AQh : heat transfer rate from lower tube cartridge heater 

ar heat flux 

Aq” heat flux from lower tube 

Ra Rayleigh number 

T temperature | 

Tavg average wall temperature at the thermocouple location 
ATavg average wall temperature at the thermocouple location for 


the lower tube 


Ke critical temperature 

Tf film temperature 

ATF film temperature of fluid associated with lower tube 

Tn | temperature of the thermocouple location 

Tsat saturation temperature 

Two outer wall temperature of the boiling test tube 

ATwo outer wall temperature of the lower tube 

V voltage across the cartridge heater 

AV voltage across the cartridge heater for the lower tube 

Vs voltage output by AC-DC true RMS converter _ 

AVs voltage output by AC-DC true RMS converter for lower tube 
a thermal diffusivity 

Aa thermal diffusivity associated with lower tube 

Bb volumetric thermal expansion coefficient 

AB volumetric thermal expansion coefficient associated with 


lower tube 


X1 


uncertainty in measurement and calibration 
superheat 

superheat associated with lower tube 

dynamic viscosity 

dynamic viscosity associated with lower tube 
kinematic viscosity 

kinematic viscosity associated with lower tube 
density 


density associated with lower tube 


I. INTRODUCTION 


As the United States continues to struggle with the dilemma of increasing require- 
ments for CFC’s, while at the same time joining the world in concern over ozone de- 
pletion, the exigency of finding replacements for the Navy’s high ozone depletion 
potential fluids is of the highest order. The urgency of this search was made more 
pressing by the reduction of the time allowed (ordered by President Bush) to meet 
Montreal Protocol deadlines to purge use of CFC refrigerants. A particularly damaging 
fluid is R-114, used primarily in centrifugal chilled-water air-conditioning plants onboard 
ships. In order to best determine a short term or “drop in” replacement, data of R-114 
nucleate pool boiling characteristics is required for comparison. The literature provides 
many studies of single tubes in nucleate pool boiling; however, studies of multiple tubes 
are more scarce. Most studies of multiple tubes with varied tube spacings were con- 
ducted in a manner to simulate a bundle, i.e. all tubes in the pool were studied with the 
same applied heat flux. There ts little work in the literature on the effect of a lower 
heated tube on the heat transfer from an upper tube (1.e. a simple bundle) and none with 
R-114. This type of data would begin to bridge the gap between single tube nucleate 
pool boiling and bundle effects, and would complement the search for a suitable re- 
placement for R-114. 

To increase the available data for comparison with possible replacement refrigerants, 
and to further investigate the effect of tube spacing, the following objectives of this thesis 
were established: 


1. Modify the existing single tube pool boiling apparatus to accommodate a simple 
two tube bundle, including program modifications to facilitate instrumenting the 
second tube. 


2. Operate the apparatus to prove repeatability with single tube data. 
3. Obtain convection and boiling data over several tube pitches and heat flux settings 
for both a smooth tube and an enhanced tube. 
Of particular note is that this study was designed as a follow up to the single tube 
work of Sugiyama [Ref. 1]. The format of this study, including the correlations and 
programs used, are adaptations from Sugiyama’s work in order to make the results di- 


rectly comparable. 


Il. MECHANISMS 


A. SINGLE TUBE BEHAVIOR 

Experimental heat transfer behavior has been fairly well predicted from single 
smooth cylindrical tubes in an infinite pool for the natural convection region by 
Churchill and Chu {Ref. 2] and Churhchill and Usagi (Ref. 3] and, to a lessor degree, for 
the boiling region by Rohsenow [Ref. 4] and Stephan and Abdelsalam [Ref. 5]. Single 
enhanced tubes have also been widely studied with nucleate pool boiling enhancements 
ranging up to I5 times the performance of smooth tubes. The largest enhancements 
have been obtained for re-entrant cavity surfaces as reported by Yilmaz and Westwater 
(Ref. 6], Marto and Lepere {Ref: 7], and Wanntarachchi er al.[Refs. 8, 9]. In these 
studies, enhancements were largely attributable to increased surface area in the con- 
vection regime, and to stable vapor sites (i.e. vapor trapped in re-entrant cavities), which 
provided a high density of active nucleation sites at relatively low values of wall super- 
heat in the boiling regime. However, to date, no comprehensive model or correlation 
has been presented which can predict such enhancements (Thome addreSses this in dis- 
cussion of nucleate pool boiling correlations [Ref. 10}). 


B. MULTIPLE TUBE BEHAVIOR 

The behavior of a particular tube in a multiple tube environment will be greatly in- 
fluenced by its neighboring tubes. In both the natural convection and nucleate boiling 
regimes, fluid heated by a lower tube will rise due to buoyant forces, and an upper tube 
will tend to be affected, specifically by the heated liquid plume in the convection regime 
and by the bubble plume in the boiling regime. Also in a bundle the lower tubes may 
impart a ‘drag’ on the fluid as it traverses the bundle affecting the fluid reaching an up- 
per tube. The lower tube, because it is not impacted by a similar plume, can be assumed 
to behave as a single tube in a pool. However, if a bundle is in a confined pool, it may 
be the case that strong recirculation patterns cause an upper tube, in turn, to affect the 
heat transfer behavior from a lower tube. 

The effect of a lower tube on an upper tube has been studicd by Sparrow and 
Niethammer (Ref. 11] and Marsters [Ref. 12] in the convection region (using air), and 
by Fuyita er al. (Ref. 13] and by Hahne, Qiu-Rong and Windisch [Ref. 14] in the 
nucleate boiling region (using refrigerants). These effects are primarily the result of two 


contradictory influences, increased fluid velocity in the convection or boiling bubble 


plume and increased fluid temperature. In the natural convection region, fluid heated 
by the lower tube will have a velocity due to buoyant forces when it arrives at the upper 
tube. In effect the upper tube is no longer in a true natural convection regime but is 
beginning to experience some forced convection (i.e. mixed convection), thus increasing 
its heat transfer coefficient. At the same time the heat from the lower tube that causes 
this buoyant plume to rise has increased the temperature of that fluid within the plume, 
thereby decreasing the temperature difference between the upper tube and the fluid and 
decreasing the heat transfer capability. Two of the parameters affecting the strength of 
these influences are tube separation and the heat flux setting of the lower tube. The 
temperature of the fluid within the buoyant plume arriving at the top tube will be slightly 
lower than its temperature when it left the lower tube due to convection to the sur- 
rounding fluid. This drop in temperature will tend to increase with increasing tube sep- 
aration, thereby increasing the AT between the upper tube and plume. This implies that 
the upper tube’s heat transfer capability at large pitch may be expected to improve over 
that at small pitch. In addition, with Sugiyama’s [Ref. 1] single tube work, convection 
plumes were turbulent (Grashof numbers were greater than 10°), implying that plume 
velocity will not change with tube separation. However in reality at high enough 
Grashof numbers, the formation of eddies and other currents in the pool would tend to 
cause a decrease in the plume fluid velocity at the upper tube and thereby a decrease in 
the heat transfer coefficient over that of a smaller pitch. These two effects, increasing 
AT with increasing pitch and decreasing heat transfer coefficient at large pitch suggest 
that an optimum pitch is possible. These influences are confirmed by Sparrow and 
Niethammer’s work with air (Ref. 11] and by Marsters [Ref. 12] with air, for which they 
found a dependence on the x-based Grashof number (based on the position of the tubes) 
for the heat transfer from the upper tube. 

In the nucleate boiling regime, the above two effects are also important. The fluid 
entrained in the bubble plume from the lower tube (and the bubbles themselves) impinge 
upon the upper tube at a much higher velocity than with a convection plume (due to 
greater buoyant forces associated with the bubbles). This greater velocity of the plume 
and the bubbles would have the same influence as in convection above and may be suf- 
ficient to strip the thermal boundary layer from the upper tube, thereby lowering heat 
transfer resistance and increasing the heat transfer coefficient. Enhancements due to the 
impingement of plume and bubbles is most significant at lower heat fluxes when active 
nucleation site density on the upper tube is low. This provides more ‘contact’ area be- 


tween the upper tube and the rising fluid/bubble mixture. As flux is increased on the 


upper tube, the active nucleation site density also increases. At high heat fluxes, boiling 
is SO vigorous that the rising fluid is prevented from gaining any appreciable ‘contact’ 
with the upper tube. Heat transfer coefficients may then be expected to increase with 
increasing tube spacing (as in the convection regime) with a possible optimum. How- 
ever, enhancement due to the lower tube may be expected to decrease when high heat 
fluxes are applied to the upper tube. The trends of these influences were verified by 
Fujita er a/. (Ref. 13 ] and Hahne er al. [Ref. 14]. 

An additional influence in the boiling regime may be the effect of ‘seeding’ from the 
lower tube when it is boiling. At low and medium heat fluxes on the upper tube (active 
nucleation site density is low), vapor bubbles from the lower tube may impinge and in- 
fluence enter an inactive cavity on the bottom half of the upper tube. This may prompt 
an otherwise inactive site to become active earlier than it would have done for a single 
tube. This influence would also be more effective at low fluxes (low site density) on the 
upper tube. At higher fluxes, the number of active sites is higher and the probability of 
an added site becoming active due to this seeding process is significantly lower. 


II. DESCRIPTION OF EXPERIMENTAL APPARATUS 


A. GENERAL DESCRIPTION 

The apparatus used is an adaptation of the apparatus used by Karasabun [Ref. 14: 
pp 24-41], Reilly [Ref. 15: pp. 30-44], and Sugiyama [Ref. 1: pp. 8-32] in previous studies 
of pool boiling of R-114/oil mixtures from single tubes. Karasabun provides complete 
details of the original configuration of the apparatus. The current apparatus was es- 
sentially that used by Sugiyama for single tubes with modifications made to accommo- 
date two tubes in the evaporator. Additionally, the original R-12 cooling system was 
Operated in conjunction with a R-502 system to increase cooling capacity for the in- 
creased heat load of two tube operation. An additional smooth and high flux tube were 
manufactured in order that both a smooth and an enhanced tube set could be studied 
in the two tube configuration. The unused auxiliary variac power supply was employed 
as the power supply for the second tube. A two tube data reduction program DRP72 
was developed by adapting Sugiyama’s single tube data reduction program DRP7. 

The apparatus is labeled on a general schematic in Figure | and consists essentially 
of seven components: 


Il. An evaporator, a boiling vessel assembled using a Pyrex-glass tee with 
aluminum/teflon endplates. 


2. A condenser, assembled using a similar Pyrex-glass tee with aluminum endplates. 
3. A reservoir for R-114 liquid storage. 


4. A cooling subsystem composed of an 1/2 ton R-502 and a 1/4 ton R-12 refriger- 
ation plant, a 30 gallon water/ethylene glycol sump, and two positive displacement 
pumps. 


5. A vacuum pump. 

6. A data acquisition and instrumentation system. 

7. An aluminum framework with plexiglass siding within which components I-3 were 
housed. 

The apparatus was designed for reflux operation. Vapor generated in the evaporator 
followed a path through an aluminum L-shaped pipe to the condenser. R-I14 
condensate then returned to the evaporator via copper tubing by gravity. The 
water/ethylene glycol sump of the cooling subsystern was maintained between -l0 and 
-17 °C. This was accomplished using two separate cooling schemes. The R-502 refrig- 


eration plant cooled the mixture via-a counter current heat exchanger through which the 
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Figure 1. Schematic of Apparatus 


water, ethylene glycol mixture was circulated by an 8-gpm turbine-tvpe pump. The R-12 
refrigeration plant cooled via an evaporator, constructed of coiled copper tubing, located 
directly within the sump. The second 8-gpm turbine-type pump circulated the mixture 
from the sump through copper condensing coils within the condenser via a control valve 
(VC, sce Figure |), and then returned to the sump. 

An alternate mode of operation was used to evacuate the boiler to facilitate tube 
change out. R-114 was boiled off from the evaporator and condensed as before, but in 
this case R-114 condensate was directed to the reservoir (by changing certain valves), 
instead of returning to the evaporator. Once tube changeout was completed the 
evaporator was simply refilled from the reservoir by gravity. 

This study was devoted to pure R-114. In order to ensure that no oil could intrude 
into the system, the oil path between the oil reservoir and the evaporator (used for 
R-114/oul mixture tests) was removed and the access to the evaporator plugged. The 
major components of the oil subsystem (reservoir and graduated cylinder) were left in- 
tact for use in future studies. 


B. BOILING TEST SECTION 
1, Evaporator | 

The evaporator consisted of a Corning Pyrex-glass tee (3 in. nominal interior 
diameter) with aluminum endplates. The endplates were coupled to the glass tce by 
Corning cast iron removable flanges. The glass vessel was mounted horizontally with 
the side-arm of the tee vertical. The major modification in adapting the apparatus from 
a single tube to two tubes was to the evaporator endplates. New endplates were manu- 
factured with thermocouple and liquid fill/return penetrations moved to the periphery 
and a three inch hole centered on the axis of the evaporator. Teflon inserts were: man- 
ufactured to fit tightly into this hole with varied spacings for the two test tubes. Though 
the teflon endplates could be rotated to accommodate a varicty of tube geometries, only 
vertical spacing was addressed in this study ( 1.e. one tube vertically below the other). 
The addition of another tube to the evaporator also required the liquid level to be raised. 
The new liquid level was only 10 mm from the top of the Pyrex glass tee and 10 mm 
above the top of the upper tube (note that for all spacings the upper tube was fixed in 
position relative to the evaporator and the lower tube was varied). This severely reduced 
the vapor path between the liquid surface and the top of the evaporator to the exit tee. 
A comparison of the modified and previous apparatus liquid levels, tube positions and 


fittings is shown in Figure 2. 
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Figure 2. 


Pyrex-glass was used for both the evaporator and condenser due to its greater 
strength compared to ordinary glass. It was necessary for the apparatus to withstand 
pressure differences (between apparatus interior and atmospheric)of up to 20 psig due 
to possible R-114 vapor pressures at high room temperatures during summer months. 


In addition, a glass vessel provided several other advantages over a metal one: 


e The transparent vessel allowed easy visual observation and videotaping of the 
boiling phenomena occurring inside. 


e The smooth interior surface minimized any nucleate boiling at this inner surface. 


A relief valve (set at 20 psig) was mounted in the aluminum piping between the 
evaporator and condenser to prevent the safe working pressure (30 psig) of the Pyrex 
glass tee from being exceeded. A sketch of the glass tee and the cast iron flanges is 
shown in Figure 3. A sketch of an endplate and a teflon block insert is shown in 
Figure 4. 

2. Test Tubes 

A general schematic of the tubes is shown in Figure 5. The tubes protruded 
through (and were supported by) the teflon inserts in the endplates of the evaporator. 
The teflon inserts were sealed by viton O-rings, two O-rings between the teflon inserts 
and each tube, and one O-ring between the insert and the aluminum endplate. 

Two types of tube were used, a smooth hard-copper tube and a High Flux 
porous-coated tube. The tubes were heated via a stainless steel, 240-volt, 1000-watt 
(nominal), Watlow Firerod cartridge heater, 6.35 mm in outer diameter, 203.2 mm in 
actual length with an actual heated length of 190 mm. The heater was tightly inserted 
into a copper sleeve, which functioned as a mounting device for the thermocouples. The 
sleeve was then inserted in the tube. Both the heater and the sleeve were tinned with soft 
solder prior to being inserted into the tube and the whole assembly heated in a furnace 
to bond the assembly together. This minimized thermal resistance and provided a uni- 
form heat flux along the length of the tube. The heater and slecve were inserted such 
that the central 190 mm were heated radially by the heater. This was taken as the active 
boiling length. A correction was applied for the heat lost from the two ends of the tube 
in the pool. 

The tubes were cach instrumented with eight thermocouples soldered into 
channels which were machined in the outer surface of the sleeve. These thermocouples 


were located at various axial and circumferential locations as shown in Figure 6. The 
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Figure 3. Sketch of Pyrex Glass Vessels and Flanges 
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Figure 4. Sketch of Endplates and Teflon Inserts 
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thermocouple grooves were axially machined to the nearest end of the sleeve to provide 
a path for the thermocouple leads. Type-T Teflon coated copper-constantan 
thermocouple wire was used both in the tubes and throughout the apparatus. Dimen- 


sions and for the tubes are given in Table 1. 


Table 1. TEST TUBE DIMENSIONS 


(Wms K) 


[Smooth | 12.44 | 15.88 | 12.70_| 15.88 | 190.0 | 76.20__ | 344 


High Flux Wes 15.82 13920 15.82 76.20 45 
(95/5 Copper- | 
Nickel) 


C. CONDENSER SECTION - 
The condenser was assembled-similarly to the evaporator. The same size Pyrex-glass 







tee was used as the main vessel with aluminum endplates. The glass vessel was mounted 
vertically with side-arm tee horizontal to receive the R-114 vapor. A helical condensing 
coil made of 9.5 mm copper tubing was inserted in the Pyrex glass tee. Swagelock fit- 
tings were used to connect the condenser coil to the coolant tubing through the 
condenser endplates. The coil was fabricated to an approximate outside diameter of 76 
mm, providing an active condensation length of approximately 4.5 m. 

The vacuum pump was connected to the top of the condenser via two isolation 
valves to remove any noncondensable gases that collect there. A tubing connection was 
placed in the bottom endplate of the condenser to enable R-114 condensate to drain 
back to the evaporator by gravity. Valve and tubing lineup was such that condensate 
could also be directed back to the R-114 reservoir. The condenser was connected to the 
evaporator by an L shaped aluminum tube two inches in diameter. The pressure relief 
valve, mentioned earlier, and a bourdon pressure gage were mounted on this aluminum 


tube. 


D. COOLING SECTION 
1. Coolant Sump 
A 0.15 +, rectangular sump for the water-ethylene glycol mixture was made of 
13 mm Plexiglas sheet. The sides were glue jointed using a methylene chloride solution 


with additional support provided by small screws. The tank was placed on a wooden 
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Figure 5. 
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platform to separate it from the concrete floor and all sides were insulated with 22 mm 
sheet insulation. The coolant was a 52% mixture of ethylene glycol/distilled water 
producing a solution freezing point of approximately -25 °C. 
2. Refrigeration Plants 

A 1/2 ton R-502 and a 1/4 ton R-12 refrigeration plant were used to chill the 
ethylene glycol/water mixture. Each consisted of a hermetically sealed compressor as- 
sembly, an air cooled condenser, a receiver, a filter-dryer, a pressure regulator, a tem- 
perature control switch and a thermostatic expansion valve. A counter current heat 
exchanger was used as the evaporator for the R-502 plant. An evaporator for the R-12 
plant was constructed of 9.5 mm copper tubing which was coiled and placed directly in 
the coolant sump. Both plants were controlled by a temperature control switch with 
each plant having its own thermostatic expansion valve. The plants were adjusted to 
maintain coolant temperatures at about -17 °C. Figure 7 shows a schematic of the 
R-502 refrigeration plant. Figure 1 shows placement of the R-12 refrigeration plant 
evaporator. 

3. Pump and Control Valve 

The two 8 gpm, I15 V Burks turbine type, positive-displacement pumps were 
floor mounted next to the coolant sump. One pumped the ethylene glycol/water coolant 
mixture through the R-502 counter-current heat exchanger. The other pumped the 
coolant mixture to the condensing coil via control valve VC (see Figure 1). Valve VC 
was the operators primary control device to maintain saturation pressure at a desired 
value by varying the coolant flow rate (and hence the condensation rate) in the 
condenser. A bypass line was also installed on the discharge line from the pump. Dis- 
charge bypass was controlled by valve V9. The bypass line served to avoid overloading 
the positive displacement pump when small heat loads were placed on the condenser 
(low coolant flow rates). The bypass return line returned to the sump via a penetration 
in the top of the tank, where the coolant return stream from the condenser returned as 


well. 


E. R-114 RESERVOIR 

The R-114 reservoir was an aluminum cylindrical vessel, 230 mm in diameter and 
254 mm in height. The reservoir was equipped with a transparent plastic tubular sight 
glass to monitor liquid level. The reservoir was located within the apparatus enclosure 
at a vertical location above that of the evaporator and below that of the condenser to 


facilitate both gravity flow from the condenser to the reservoir and from the reservoir’ 
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Schematic of R-502 Refrigeration System 


Figure 7. 


to the evaporator. The reservoir could be replenished from an outside source (storage 
cylinder) via a connection on the vacuum line from the condenser. Vapor from the 
storage cylinder was condensed in the condenser and drained into the reservoir. The 


arrangement of the reservoir is shown in Figure lI. 


F. APPARATUS ENCLOSURE 

The apparatus (apart from the cooling subsystem) was contained in an aluminum 
framed, plexiglas enclosure. The enclosure consisted of a rectangular welded frame ap- 
proximately | mx 0.5 mx 0.6m. The frame was divided into upper and lower halves 
with the lower half of the frame straddling and enclosing the coolant sump. The upper 
half of the frame was enclosed at the top and bottom with aluminum sheet. The four 
remaining sides were enclosed with 13 mm Plexiglas. The opposing 0.5 m x 0.6 m 
plexiglas sides were equipped with hinges to allow access to the interior. The refriger- 
ation plants, pumps, and heat exchanger were located on the laboratory floor adjacent 
to the enclosure. Data acquisition equipment was located in a separate cabinet also 
adjacent to the enclosure. The enclosure provided some insulation from ambient con- 
ditions and provided a safety barrier between personnel and the apparatus should one 
of the glass vessels fail. 


G. INSTRUMENTATION 

1. Power Measurement 
A 240 volt AC supply was used as the power source for the apparatus and was 
controlled via a variac. Output from the variac ranged from 0-220 V, 0-5.A, adjustable 
by the operator, to obtain a desired heat flux at the tube surface. Power input to the 
tube heater was measured with an AC current sensor and a voltage sensor (both sensors 
output in volts). The voltage sensor output was also processed through an AC-DC true 
R.M.S. converter which provided a proportional output signal (also in volts). The cur- 
rent and R.M.S. voltage output were input to the data acquisition system. Calibration 
of power measurement was checked by comparing voltage and amperage measurements 
against a digital voltmeter and ammeter. The power measurement system ts shown 


schematically in Figure 8. 
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Zz. Temperature Measurement 
Several temperatures were monitored throughout the apparatus. These were 


e Average test tube wall temperature (using the 3 thermocouples positioned as men- 
tioned above). 


¢ Pool temperature (three thermocouples located at three different positions 
longitudinally within the pool but at approximately the same height) 


e Coolant sump temperature (one thermocouple) 


The pool thermocouples were inserted into special housings that penetrated the 
evaporator endplates (Figure 9). The main body of the housing was manufactured from 
stainless steel (low thermal conductivity) to minimize errors in pool temperature meas- 
urement due to conduction from the surroundings through the housing. The tip of the 
housing was manufactured from copper to take advantage of copper’s high thermal 
conductivity and to minimize the temperature difference between the pool and the 
thermocouple. 

Copper-constantan thermocouples were used for all measurements. 
Thermocouples were read directly by a Hewlett-Packard 3497A data acquisition system 
controlled by a Hewlett-Packard 9826 computer. The average temperature for each 
thermocouple was obtained by scanning its output 20 times over 5 seconds and taking 
an average. 7 


H. DATA ACQUISITION AND REDUCTION 

All sensor outputs (thermocouples, current sensor and R.M.S. voltage) were ana- 
lyzed by a Hewlett-Packard 9826 computer and the data stored using the iterative data 
collection/reduction program DRP72 (Sugiyama’s single tube program DRP71 (Ref. 1] 
was used during initially repeatability experiments). The program was controlled (by the 
operator) by keyboard interaction to prompt the system to take desired steps. Raw data 
was stored on the computer hard drive while a printout of reduced data was provided 
on a Hewlett-Packard Inkjet printer. Channel assignments for the various sensor inputs 


to the data acquisition system are shown in Table 2. 
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Table 2. HP 3497A CHANNEL ASSIGNMENTS 


Upper test tube wall temperatures 
16-18 | Pool liquid temperatures 
19 | Coolant sump temperature 










21 


Following data acquisition, the data were reduced utilizing the following 
procedurel: 
1. Input the name of the user-specified file to be stored on hard drive. 


2. Select number of tubes to be powered and from which tube data is to be collected 
(upper or lower). 


3. Select tube type (all dimensions of the boiling test tubes are then automatically 
selected). 


4. Set desired saturation temperature (°C) of the pool (for these tests, 2.2 °C was used, 
corresponding to approximately 1 atmosphere). 


5. Input desired heat flux setting. 
6. Set desired heat fluxes by adjusting appropriate variac. 


7. Set desired saturation temperature by adjusting flow of coolant through condenser 
couls with control valve VC. 


8. Once saturation temperature is achieved, wait for steady state conditions (minimum 
of 5 minutes) prior to taking data. 


9. Prompt data acquisition unit to scan all channels listed in Table 2. All channel 
readings are made in volts and stored in user specified fields. 


10. Compute parameters from these voltages (i.e. temperature and power). 
11. Compute the heat transfer rate from the cartridge heater. 


12. Compute the average wall temperature of the test tubes and calculate the wall 
superheat (T wall — Tsat) 





13. Compute the physical properties of R-114 using the property correlations (se 
Sugiyama(Ref. 1]) at film temperature ((Twall —Tsat)/2). 


14. Compute the natural convection heat-transfer coefficient of R-114 from the un- 
heated ends of the test tubes. 


15. Compute heat losses from the unheated ends of each tube. 
16. Calculate heat flux from the heated length of each tube. 


17. Calculate the heat-transfer coefficient of the R-114 from the heated length 
of each tube. 


18. Store heat flux and wall superheat for each data set in user specified field. 


19. Plot the data using available software. For this studv, plots were produced on the 
NPS mainframe computer. 


Sample calculations of the above procedure are given in Appendix A. 


1 This procedure was essentially identical to that followed by Sugiyama [Ref. |] and therefore 
his procedure is largely reproduced. 
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IV. EXPERIMENTAL PROCEDURE 


A. ASSEMBLY 

The mechanical assembly of the tubes within the evaporator was very straight for- 
ward and will not be discussed in great detail. However the preparatory steps following 
assembly are important from the point of view of ensuring a leaktight apparatus to 
prevent loss of R-114 from the system and the intrusion of noncondensable gases into 
the system. Additionally it should be noted that vertical alignment of tubes was ensured 
by using an air bubble level. 

1. Pressure Test of the Apparatus 

Following reassembly of the evaporator, a pressure test was conducted on the 
apparatus by pressurizing the system (with air) up to 10 psig. A soap-water mixture 
then was sprayed on all joints and leaks were detected by bubble formation from the 
sOap-water mixture. Any leaks were then repaired. The apparatus was repeatedly 
pressure tested until there were no “visible” leaks detected. 

2. Vacuum Test ; 

Following a successful pressure test, the apparatus was evacuated (using the 
vacuum pump) to approximately 27 inHg. The apparatus was then allowed to stand 
overnight. If an appreciable vacuum loss was observed (i.e. a drop of more than | inHg. 
in a 24 hour period), the whole process was repeated, beginning with a pressure test, 
until all leaks were corrected. | 

3. Filling the Evaporator | 

After the apparatus was successfully vacuum tested, the evaporator was filled 
from the R-114 reservoir. The pressures were first equalized between the evaporator and 
the reservoir by cracking open valve V7. R-114 liquid was then drained by gravity tnto 
the evaporator through valve V6 until the liquid reached the desired evaporator level, 
approximately 10 mm above the top of the upper tube. Once the evaporator was filled, 
the reservoir was isolated from the rest of the apparatus by closing all connecting valves. 

4. Sensor Connections 

Thermocouple leads and any other sensor connections were not reconnected 
until the evaporator was successfully filled without leaks. This prevented unnecessary 
wear and tear on the heater leads and thermocouple wire due to the large number of tube 


changes required. 
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5. Degassing and Acquisition Channel Check 

Once all connections were made, program SETUP72 checked the output on all 
channels. Any erroneous output was promptly investigated and the necessary cor- 
rections made. Before any heat was applied to either test tube, the system pressure was 
reduced to the desired saturation pressure by opening flow of the coolant mixture to the 
condenser. Each tube in turn was boiled vigorously at the highest heat flux setting 
(approximately 80 kW/m?) for about 10 minutes in order to degas the refrigerant and to 
remove excess air from the tube surface cavities. Noncondensable gases then collected 
at the top of the condenser and were removed by the vacuum pump. During the 
degassing procedure, program SETUP72 was again used to observe thermocouple 
readings and power sensors to ensure proper operation. Any faulty thermocouples were 
marked to ensure they were excluded during data runs. Following degassing, the appa- 
ratus was secured and the tubes allowed to soak overnight in the R-114 pool to provide 


good surface wetting. 


B. NORMAL PROCEDURE 
The following procedure was used to obtain heat transfer data2: 


1. Prior to system startup, the refrigeration plants were operated for approximately 1 
hour to reduce the coolant sump temperature to about -15 °C. 


2. The data acquisition/control unit, computer and variac panel were switched on. 


3. The computer program SETUP72 was loaded and run: 1) All data acquisition 
channels were then rechecked. 2) A power output of approximately 2.5 Watts was 
input into each tube to check operation of the heater and power sensors. 3) The 
average temperature of the refrigerant was slowly reduced to 2.2 °C by crculalae 
a small amount of coolant through the condenser. 


4. The data acquisition program DRP72 was loaded and run. 


5. The desired heat flux setting for the lower tube was input to the program and the 
lower tube variac adjusted to give the desired heat flux (within + 500 }V/m? ). 


6. The control valve VC was adjusted to regulate the flow of cooling liquid through 
the condenser to maintain a constant saturation temperature at a given heat flux. 
Desired versus actual saturation temperatures were monitored continuously by the 
program until they agreed to within + 0.1 °C. 


7. For each data point, conditions in the evaporator were allowed to stabilize for at 
least five minutes prior to taking data. The following raw data were measured and 
stored in a user specified field: local test tube wall temperatures, pool liquid tem- 
peratures, sump temperature, current sensor readings and voltage sensor readings. 


2 Ibid 
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8. Two data points were taken at each desired heat flux and saturation temperature. 
The following processed data were recorded as a printout: wall temperatures of the 
test tubes, liquid pool temperatures, vapor temperature, sump temperature, wall 
superheat, heat-transfer coefficient and the heat flux. 


9. For each data set, the above procedure was repeated from step 5. Various heat flux 
steps were used to obtain uniform steps on a log-log scale. For increasing flux, 
smaller steps were used up until the incipience of boiling in order to accurately de- 
termine the point of incipience. 

C. DATA LISTING 
Data were filed using the following file name system: 

e Files were given 10 character names (ex. DAT0531I52). 

e The first three characters DAT simply refer to data. 

e The next four characters date the file (0531= 31 May). 


e The eighth character indicated an increasing or decreasing run (I = increasing, D 
= decreasing). 


e The ninth character indicated tube type ad listed in program DRP72 (4 = smooth 
tube, 5 = High Flux tube). 


¢ The tenth character indicated which program wad used DRP7I1 or DRP72 (1 = 
DRP71, 2 = DRP72). 


e The 11th character when present indicated successive runs for the indicated tube 
and indicated program for that day. 


Table 3 is a listing of data runs. 
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Table 3. LISTING OF DATA RUNS 


[Data File | Tube Type ——~«d«i Purpose —SOSC=C=~—~—S~*~SCS 
Repeatability, p/d=2 

Data; repeatability, pld=2 
Repeatability, pid=2 
Repeatability, p/d=2 
Repentabiliey, pld=2 


DAT0331142 Smooth Data; p/d= 2; 500 W/m? on lower 
tube 
DAT0331D42 Smooth Data; p/d= 2; 500 W/n? on lower 
tube 
DAT0401142 Smooth Data; p/d=2; | Al /:m? on lower 
tube | 
DAT0401D42 Smooth Data; p/d=2; | kW/m? on lower 
tube 
DAT0404142 Smooth Data; p/d=2; | AV /m? on lower 
tube 
| DAT04041421 Data; p/d=2; | AV /m? on lower 
tube 
DAT0404D421 Smooth | Data: p/d= 2; | Al /n? on lower 
: | tube 


| DAT0406142 | Smooth Data; p/d=2; 10 kW/m? on lower 
tube 
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Continuation of Table 3. 


Data Fil Tube Type 


DAT0406D42 Smooth Data; p/d= 2; 10 AlV/»m? on lower 
tube 

DAT0407142 Smooth Data; p/d= 2; 25 A} {m1 on lower 
tube | 

DAT0407D42 Smooth Data; p/d= 2; 25 K}V/m? on lower 
tube 

DAT0408142 Data; p/d=2; 3 klV/n? on lower 
tube | 

DA T0408 D42 Smooth Data; p/d=2; 3 KW’/ni? on lower 
tube 

DATO410142 Smooth Data; p/d=2; Tubes run up to- 
gether 

DAT0410D42 Smooth Data; p/d=2; Tubes run down 
together 

DAT0415142 Smooth Data; p/d= 1.8; 10 kW/m? on 
lower tube 

DAT0415D42 Smooth Data; p/d= 1.8; 10 kW/m? on 
lower tube 

DATO4151421 Smooth Data; p/d= 1.8; 25 kW/m? on 
lower tube 

DAT0415D421 Smooth Data; p/d= 1.8; 25 AW/r2 on 
lower tube 

DATO417142 — Smooth Data; p/d= 1.8; no power on 
lower tube 

DAT0417D42 Smooth Data; p/d= 1.8; no power on 
lower tube 

DATO418142 Smooth Data; p/d=1.8; | kW/m? on 
lower tube 

DAT0418D42 Smooth Data; p/d= 1.8; 1 AW /or? on 

. lower tube | 

DATO419142 Smooth Data; p/d= 1.8; 3 ATF /m? on 
lower tube 

DAT0419D42 Smooth Data; p/d= 1.8; 3 AH Jin? on 
lower tube 

DAT0423142 Smooth Data; p/d= 1.5; no power on 
lower tube 
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Continuation of Table 3 


Tube Type Purpose 


DAT0423D42 Smooth Data; p/d= 1.5; no power on 
—_ lower tube | 
DAT0424142 Smooth Data; p/d= 1.5; 3 kW/m? on 
lower tube 
DA T0424D42 Smooth Data; p/d=1.5; 3 kW/m? on 
lower tube 
DATO425142 Smooth Data; p/d= 1.5; | AW /m? on 
lower tube 
DAT0425D42 Smooth Data; p/d= 1.5; 1 kW/m? on 
lower tube 
DAT0426142 Smooth Data; p/d= 1.5; 10 AW/m? on 
| lower tube | 
DAT0426D42 Smooth Data; p/d= 1.5; 10 kW/m? on 
| lower tube 
DAT0427142 Smooth Data; p/d= 1.5; 25 kW/m? on 
, lower tube 
DAT0427D42 Smooth Data; p/d= 1.5; 25 KW/n? on 
| lower tube 
DAT0430152 High Flux Data; p/d=1.5; 1 kIV/m? on 
lower tube 
DAT0430D52 High Flux Data; p/d= 1.5; | kIV/m? on 
lower tube 


DATOS501152 Fligh Flux Data; p/d= 1.5; 10 KW/n? on 
lower tube 


DAT0501D52 High Flux Data; p/d=1.5; 10 AW/n? on 
lower tube 
DAT0S01I522 High Flux Data; p/d= 1.5; 25 AlV/n? on 
lower tube 
DAT0O501D522 High Flux Data; p/d= 1.5; 25 AW {mi on 
lower tube 
DAT0502{152 High Flux Data; p/d= 1.5; 3 kIV/m? on 
lower tube 
DAT0502D 52 High Flux Data; p/d=1.5; 3 AlV Jr? on 
lower tube 
DATO503152 Fligh Flux : Data; p/d= 1.5; no power on 
lower tube 
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Continuation of Table 3. 


Data File Tube Type 

DAT0503D52 High Flux Data; p/d= 1.5; no power on 
lower tube 

DAT0506152 High Flux Data; p/d= 1.8; no power on 
lower tube 

DAT0506D52 High Flux Data; p/d= 1.8; no power on 
lower tube 

DAT0507152 High Flux Data; p/d=1.8; 1 KW/m? on 
lower tube 

DAT0507D52 High Flux Data; p/d=1.8; | KW/m? on 
lower tube 

DATO508152 High Flux Data; p/d= 1.8; 3 AW/m? on 
lower tube 

DAT0508D52 High Flux Data; p/d= 1.8; 3 KW/m? on 
lower tube 

DAT05081521 High Flux Data; p/d= 1.8; 10 kW/m? on 
lower tube 

DAT0508D521 High Flux Data; p/d= 1.8; 10 KW/m? on 
lower tube 

DAT0509152 High Flux Data; p/d=1.8; 25 kW/m? on 
lowcr tube 

DAT0509D52 High Flux Data; p/d= 1.8; 25 kW/m? on 
lower tube 

DAT0509D52 High Flux Data; p/d= 1.8; 25 kW/m? on 
lower tube 

DATOS15152 High Flux Data; p/d= 2; 25 KW/m? on lower 
tube 

DAT0O515D52 Fligielelux Data; p/d=2; 25 kW /r? on lower 
tube 

DATO516152 High Flux Data; p/d= 2; 10 KW/r? on lower 
tube 

DAT0516D52 High Flux Data; p/d=2; 10 kW/m? on lower 
tube 

DATO517152 High Flux Data; p/d=2; | AlV/m? on lower 
tube 

DAT0519152 High Flux Data; p/d= 2; 3 kW/m? on lower 
tube 


Pee] 


Continuation of Table 3 


Tube Type 


DAT0O520152 High Flux Data; p/d=2; no power on lower 
tube 

DAT0529[52 High Flux Data; p/d=2; tubes run up/down 
together 

DATO0530[52 High Flux Data; p/d= 2; lower tube position 
plugged 
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VY. RESULTS AND DISCUSSION 


It should be noted and it is stressed that results are expressed in terms of enhance- 
ment of the upper tube over a single tube and that the results are applicable to this ap- 
paratus. These results may not be reproducible outside of this apparatus. 


A. REPRODUCIBILITY 

To investigate repeatability, tests were conducted with both a ‘single’ High Flux and 
smooth tube (with only the upper tube operating). Runs were conducted using both 
program DRP71 (from Sugiyama’s single tube work [Ref. 1]) and DRP72 with no heat 
flux applied to the bottom tube. This ensured that the new program DRP72 performed 
correctly. An additional set of runs were made using the pair of smooth tubes with a 
heat flux of 1 AlW/m? applied to the lower tube using program DRP72. The runs for all 
these comparisons are listed in Table 4. A pitch-to-diameter ratio of 2 was used for the 
runs listed in Table 4. A plot of heat flux vs. wall superheat (Thetab) for these runs is 
shown in Figure 10 through Figure 12. Figure 10 shows the ‘single’ smooth tube data 
together with the single smooth tube data of Sugiyama [Ref. 1]. The three runs agree 
very Well and are within 10% of Sugiryama’s data; any discrepancy is attributed to the 
presence of the unheated lower tube modifying the flow over the upper tube. Clear ev- 
idence of hysteresis is seen as with Sugiyama’s work; as the heat flux is decreased , a 
closed loop is formed indicating that as the nucleation sites die out, the transfer mech- 
anism returns to one of natural convection. Figure 11 shows the ‘single’ High Flux tube 
data together with the single tube High Flux data of Sugiyama [Ref. I]. Again good 
agreement is obtained except at the:lowest heat fluxes and lowest AT’s where discrep- 
ancies of up to 50% are noted. Flowever, due to the very high uncertainty in this region 
(marked on Figure 11), primarily due to uncertainty in the wall temperature measure- 
ment due to the fabrication procedures, the agreement ts still considered reasonable. It 
should also be noted that run DAT0530 was conducted with plugs in place of the bottom 
tube (as opposed to the bottom tube having Zero applied heat flux) and also shows ex- 
cellent agreement. This indicates quite clearly that with the lower tube off, the upper 
tube behaves almost exactly like a single tube. Note also that the hysteresis ‘loop’ is 
Open (again similar to the work of Sugiyama) indicative of the fact that there are still a 
significant nuinber of active nucleation sites operating with the High Flux tube even at 


heat fluxes as low as 1000 W/m?. Figure 12 shows the three smooth tube runs con- 


3] 


ducted with a [AW /m? heat flux applied to the bottom tube. Without discussing the 
significance of the results here (see section B.), it can be seen that repeatability is good 
and within 5% for all three data sets. Based on Figure 10 through Figure 12, data re- 
peatability and agreement with past single tube work carried out on the same apparatus 


is considered good. 


Table 4. DATA RUNS USED FOR REPEATABILITY 


DATO0313D41 
DATO0320141 


DAT0O123152 High Flux no power on lower tube, increas- 
| ing run only 


DATO130152_— High Flux 
DAT0130D52 High Flux 


DAT0530152 High Flux lower tube removed and position 
plugged, increasing and decreas- 
ing run recorded in this file 


B. INFLUENCE OF THE LOWER TUBE 
To investigate the influence of a lower upon an upper tube, each upper tube (for 
















both types of tube surface) was run up and down (starting in the convection region) 
through various heat flux settings for three different pitch-to-diameter (p/d) ratios and 
five different fixed heat flux settings on the lower tube. Note that in each test, the same 
tube surface was used for the upper tube and the lower tube (i.e. the surfaces were never 


mixed). The p/d ratios used were 1.5, 1.8 and 2. A p/d ratio of 2 was selected to match 


22 


100000 


LEGEND 
SUGLYAMA 
2 DATO313 


DATO330 


TYPICAL UNCROTAITY 
IN THI& wo RGaNn 





ie 
iS 
Et = 
= 
= 
vA 
SS 
we” 
eS 
a iH 
TYPICAL UNCARTRINTY 
= Ink TRIS REGLON 
| 
° 
f=) 
Q 6 j 
0.04 0.1 1 10 


THETAB (DEGREES C) 


Figure 10. Repeatability Comparison for Smooth Tube, No Heat Flux on Lower 
Tube 
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Figure it. Repeatability Comparison for Hi Flux Tube, No Heat Flux on Lower 
Tube 
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Figure 12. Repeatability Comparison for Smooth Tube, Efleat Flux of 1 IV /m? on 
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the vertical pitch, not only in Naval centrifugal flooded evaporators, but also in the 
bundle apparatus in the Heat Transfer Laboratory. The fixed lower tube heat flux set- 
tings (LTHFS) used were 0, 1, 3, 10 and 25 kW/m? (there was one test conducted with 
a lower tube heat flux setting of 500 W/m?). To evaluate the influence of the lower tube, 
the data has been presented in two ways: the first by common p/d ratio and the second 
by common LTHFS. In every case, plots of heat flux vs AT are shown. 
l. The Effect of Heating the Lower Tube 
a. Smooth Tube p/d Ratio of 2 

Figure 13 shows data taken for a p/d ratio of 2 for the six LTHFS labeled 
in the legend representing A}V/m? and CC representing the Churchill and Chu correlation 
[Ref. 2]. This labeling was used for all the 5 subsequent plot legends. An extra run was 
made at this pitch with a LTHFS of 500 W/m? for comparison. The natural convection 
regime shows very small enhancements with increasing LTHFS of up to 3 AW/m?. Of 
note is that for LTHFS of 0, 0.5, 1, and 3 KW/m? , the lower tube was in the convection 
regime at the beginning of the increasing run. For the 10 and 25 kW/m? case the lower 
tube had nucleated immediately and was nucleating for the entire run. The natural 
convection curves are still very close to values calculated from Churchill and Chu’s cor- . 
relations [Ref. 2] and relatively parallel with one another. It can be seen that for a 
LTHFS of 500 W/»m?, the top tube behaves almost as if it were a single tube (i.e. agrees 
with a LTHFS of 0). In this case, the lower tube remained in the natural convection 
regime for the entire run and shows that if this is the case, little to no enhancement of 
the upper tube is obtained at any heat flux. The point of incipience is different for each 
LTHFS and proved to be a fairly random event for the smooth tubes, occurring around 
12 KW/m?. In all cases except the 0 and 500 W/m, the lower tube was “seeded” by 
bubbles from the R-114 return line (impinging upon the lower tube) when at a high flux 
(> 20KW/m?) on the upper tube. The lower tube then continued to nucleate after being 
‘seeded’ throughout the remainder of the run. The LTHFS of 0, 0.5, 1 and 3 KW/n? 
showed enhancement upon nucleation, jumping to a common nucleate boiling curve. 
This entire run showed a very definite hysteresis effect and was very similar to 
Sugtyama’s [Ref. 1] single tube data. Following nucleation, the four lower LTHFS fol- 
lowed an identical nucleate boiling curve for the remainder of the increasing run. On the 
decreasing run, the two lowest LTHFS showed a gradual return to the convection curve 
indicating a gradual deactivation of nucleation sites as heat flux was reduced on the - 
upper tube. This coincided with no nucleation on the lower tube and also agreed well 


with Sugiyama’s [Ref. 1] single tube results. The remaining LTHFS departed from this 
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curve (on the decreasing run) and showed significant enhancements (almost an order of 
magnitude over a single tube at the lowest heat fluxes). The enhancement increased with 
increasing the LTHFS until at LTHFS above 10 kW/m?, additional enhancement was 
minimal. The curves followed by LTHFS greater than t KW/m? during the decreasing 
run were also parallel to the increasing run natural convection curves. This suggests 
strong convection effects on the upper tube when the lower tube 1s nucleating and heat 
flux setting on the upper tube is below 10 kW/m? .. This agrees well with the data of 
Fujita er al. [Ref. 13]. It should be noted that all LTHFS followed the same curve above 
an upper tube heat flux setting of approximately 20 kW/m? showing no effect of LTHFS 
at high flux settings on the upper tube. This too is in agreement with Fujita et al.. Of 
particular note is that the two highest LTHFS follow the same curve for both increasing 
and decreasing runs, indicating complete elimination of hysteresis prominent in single 
tube data. The above discussion indicates a significant effect of the lower tube upon the 
upper tube when the lower tube is nucleating. There are almost negligible enhancements 
when both tubes are in the convection regime. 
b. Smooth Tube p/d Ratio of 1.8. 

The smooth tube runs with a p/d ratio of 1.8 , shown in Figure 14, show 
very similar results to that for a p/d of 2. As before for LTHFS of 0, | and 3 kW/m’, 
both tubes begin in the convection regime for the increasing run: again no significant 
enhancement is seen in this region, although these curves are in better agreement with 
Churchill and Chu [Ref. 2]. For a given LTHFS, onset of nucleate pool boiling (ONB) 
occurs at different heat fluxes than in Figure 13, demonstrating the random nature of 
this phenomena. A common nucleate boiling curve is followed by all LTHFS runs 
above an upper tube heat flux setting of about 20 KW/m?. Hystcresis effects are similar 
for low LTHFS as are the elimination of hysteresis for the two highest LTHFS. The 
lower tube was seeded by bubbles from the R-114 return line at high upper tube heat 
flux for all LTHFS (except 0). When compared with Figure 13, the same enhancement 
factors are seen at all but the highest heat fluxes, where the 1.8 p/d shows a slight en- 
hancement over the 2 p/d. This will be shown more clearly on a later graph. 

c. Smooth Tube p/d of 1.5 

The same trends and enhancements seen in the previous two p/d ratios are 
also seen in Figure 15. LTHIFS of 0, | and 3 are very similar to the previous two p/d 
ratios with no appreciable enhancement in the convection region. The lower tube 
Started in the convection region for LTHFS of 0, | and 3, and was nucleating throughout 


for LTHFS of 10 and 25 kW/m? The lower tube nucleated via ‘seeding’ at high fluxes 
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Figure 14. Comparison of Lower Tube Flux Settings for a p/d Ratio of 1.3 for 
Smooth Tube 
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on the upper tube as for the previous two p/d ratios. ONB for the upper tube continued 
to be a statistical phenomenon. Similar hysteresis patterns are also seen. At the highest 
heat flux settings, the 1.5 p/d shows a degradation compared to both the 1.8 and 2.0 p/d. 
This will again be shown more clearlv on a later graph. 
a. High Flux Tube p/d of 2 

A plot of data runs made for the High Flux tube with a p/d ratio of 2 is 
shown in Figure 16. The convection region looks very simular to that of the smooth 
tubes in that they agree fairly well with Churchill and Chu [Ref. 2]. Also, there is no 
appreciable enhancement in the convection region for increases in LTHFS from 0 to 3 
kW]m?. For LTHFS of 0, 1 and 3, the lower tube remained in the convection regime 
until nucleation of the top tube, as with the smooth tube cases. However for all the 
High Flux tube runs, with the exception of the 0 LTHFS, the lower tube nucleated ar 
the same time as the upper tube when both tubes started in the convection regime. This 
appeared to be due to the explosive nature of nucleation with these enhanced surfaces 
which caused vapor to impinge upon the lower tube thereby causing immediate 
nucleation on the lower tube as well; there are probably significant shock waves set up 
within the pool that add to this nucleation of the lower tube as well. Once the upper 
tube nucleated, the three LTHFS curves jumped to a common nucleate boiling curve, 
and demonstrated a significant temperature overshoot, similar to that found by 
Sugtyama [Ref. 1] for a single High Flux Tube. These LTHFS runs followed the same 
nucleate boiling curve for the remainder of the increasing run and for the entire de- 
creasing run; the form of the hysteresis loop agreed very well with Sugivama’s single tube 
work [Ref. I]. 

The lower tube nucleated from the beginning of the increasing run for a 
LTHFS of 10 and 25 KW/m?. Unlike the smooth tubes, the hysteresis loop is not com- 
pletely eliminated for these two LTHFS. These curves demonstrate that the upper tube 
experiences several effects during the increasing run. The segment of the curve between 
500 and 1000 W/m? is parallel to the natural convection curves but well to the left (i.e. 
well enhanced), indicating strong convection effects due to the bubble plume from the 
lower tube sliding over the upper tube. This segment of the curve agrees very closely with 
that for the smooth tube in the convection region for the same pitch and the same 
LTHFS. This indicates that the bubbles sweeping over the upper non-nucleating High 
Flux tube have the same enhancement effect as on an upper non-nucleating smooth 
tube, 1.e. it makes no difference which tube surface is used because the majority of.the 


heat transfer is associated with the bubble plume sweeping over the upper tube from the 
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nucleating tube below. This supports Cornwell’s bubble sweeping hypothesis at low 
heat fluxes [Ref. 17]. For upper tube heat fluxes above 1000 W/m?, the curves for both 
the 10 and 25 AW/nm? LTHFS show almost vertical slopes, indicating partial nucleation 
and mixed convection, eventually; at high enough heat flux as they join the same com- 
mon nucleate boiling curve as before with LTHFS of 0, 1 and 3 AIV/m? All decreasing 
runs for all LTHFS followed the same curve, and agreed closely with both the 0 LTHFS 
and with single tube data (Sugiyama (Ref. | ]) for decreasing heat flux. There is some 
difference between the curves on the decreasing run at low fluxes; however these differ- 
ences are within the experimental uncertainty which is largest in this region. The above 
suggests that there is no enhancement 
of the upper tube heat transfer coefficient gained by heating the lower tube at a p/d of 
2. 

e. High Flux Tube p/d Ratio of 1.8 

Figure 17 for a p/d of 1.8 is almost identical to that for a pitch of 2. The 

same effects (as discussed for Figure 16 above) apply equally to Figure 17. Convection 
and nucleate region curves fall on top of each other with the upper tube nucleating at 
almost the same heat fluxes. The first segment between 500 and 1000 W/m? for LTHFS 
of 10 and 25 kW/m? agrees very closely with the nucleate boiling region for the smooth 
tube for the same pitch. The reasons for this are also discussed above, and demonstrate 
the repeatability of this effect. The excellent agreement between the plots in Figure 17 
and Figure 16 suggests that there is no effect of tube spacing at any heat flux. This will 
become clearer in later figures. 

Jf. High Flux Tube p/d Ratio of 1.5 

Figure 18 shows the plot for a pitch of 1.5 to be almost identical to the 
plots for pitches of 1.8 and 2. The differences in the plot are in the same areas as in the 
previous pitch. The upper tube nucleates at different fluxes than in the previous two 
pitches, again demonstrating the somewhat random nature of ONB. In all other respects 
the plot is identical to the previous two, further reinforcing that there is nothing to be 
gained from an upper enhanced tube by the presence of a nucleating lower enhanced 
tube except if the upper tube is in the natural convection region. 
2. The Effect of Tube Spacing 

a. Lower Tube Unheated 

' To show the effect of tube spacing, plots have been made for all three 
pitch-to-diameter ratios at each LTH FS used. For the base of an unheated lower tube, 


the data are shown in Figure 19 for both the smooth and High Flux tubes for all three 
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Figure 17. Comparison of Lower Tube Flux Settings for a p/d Ratio of 1.8 for High 
Flux Tube 


44 


100000 


10000 


QDP (W/SQ METER) 


f 


1000 


200 


0.04 


Figure 18. 





0.1 . 1 | 10 
THETAB (DEGREES C) 


Comparison of Lower Tube Flux Settings for a p/d Ratio of 1.5 for High 
Flux Tube 


45 


values of p/d tested. This plot clearly shows the hysteresis loop for the smooth tubes 
(discussed earlier) and the earlier incipient point associated with the High Flux tubes. 
It should be noted that on a log/log plot, the temperature overshoot for the High Flux 
tubes looks much larger than that for the smooth tubes. In fact it is the other way 
around, with a smooth tube temperature overshoot of around 25 K and a [ligh Flux 
value around 15 K. In the natural convection region, all the data fall very closely to- 
gether. Following nucleation of the upper tube, the three curves for each tube jump to 
that tube’s respective nucleate boiling curve for the remainder of the run; these curves 
agree well with Sugiyama’s [Ref. 1] single tube data for both smooth and High Flux 
tubes. As expected for an unheated tube, there is no effect of tube spacing for High 
Flux tubes for any heat flux. However for the smooth tubes at high heat fluxes, there 
does appear to be a definite effect of tube spacing, with a p/d of 1.8 giving the best heat 
transfer performance. With the bottom tube unheated, it is unclear as to why this 
should be the case (except that its presence obviously effects the circulation patterns in 
the evaporator), but as will be seen, this trend is consistent even when the lower tube is 
heated. 
b. Lower Tube Heat Flux Setting of 1 kW|nt 

Results for both tube surfaces at three values of p/d fora 1 kW/m? LTHFS 
are shown in Figure 20. In the natural convection region, it appears that both High 
Flux and smooth tubes show a small increasing enhancement with increasing tube 
spacing. This agrees with Sparrow and Niethammers [Ref. 11] and Marsters [Ref. 12] 
work with air. It should be noted that for this LTHFS, both upper and lower tube were 
in the convection region at the start of the increasing run. Figure 20 also shows the 
lower nucleation heat fluxes associated with ONB for High Flux tubes. Once the upper 
tubes nucleate, all curves ‘jump’ to a nucleate boiling curve. The High Flux tubes follow 
the same nucleate boiling curve regardless of spacing for the remainder of the run. This 
suggests that for a High Flux tube which is nucleating, there is no effect of heating from 
a lower tube with a LTHFS of 1 kW/m? or less for any p/d ratio. The smooth tubes on 
the other hand, do show small enhancements throughout the nucleate region for the 
three values of p/d. These are similar to the data shown in Figure 19 when the bottom 
tube was present but not heated, and suggests that these effects are directly related to 
the tube spacing itself and not due to the fact that the lower tube is heated. In 
Figure 20, there does seem to be some effect of p/d at these lower heat fluxes on the 
boiling curve; furthermore, this appears to be opposite to the trend found at high heat 


fluxes, 1.e. a p/d of 1.5 gives the best heat transfer. However, this is thought to be ex- 
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perimental scatter as it does not occur on later graphs, whereas the effect at high heat 
fluxes 1s very repeatable. 
c. Lower Tube Heat Flux Setting of 3 kW/m 

The plot shown in Figure 21 fora LTHFS of 3 kW/m? is very similar to that 
for 1 kKW/m?. The same enhancement trends are seen in the convection region in that 
both tubes show increasing enhancement with increasing pitch, with the exception of the 
smooth tube with a p/d of 1.8. This is believed to be due to scatter because the per- 
formance shown for both tubes for the other LTHFS 
in the natural convection regime tend to follow an increasing enhancement with pitch 
trend. It should be noted for this LTHFS that both lower and upper tube were in the 
convection region at the beginning of the increasing run. Once the upper tube had 
nucleated, then the lower tube also started to nucleate from the ‘seeding’ process men- 
tioned earlier. Following nucleation, the High Flux runs show the same results as in the 
previous LTHFS. The smooth tube still shows small enhancements at high heat fluxes 
as in the previous LTHFS, with a pitch of 1.8 giving the best enhancement. However 
in the boiling region below 10kW/m?, no enhancements are discernable due to p/d (as 
mentioned earlier) and the curves fall directly on top of one another. 

d. Lower Tube Heat Flux Setting of 10 kW/m? 

It should be noted that for this LTHFS, the lower tube nucleated at the 
beginning of the run and remained that way throughout the run. The plot fora LTHFS 
of 10 KW/m? is shown in Figure 22 and clearly shows the elimination of hysteresis for 
the smooth tube. Thus the effect of the bubbles from the lower tube sweeping over the 
upper tube (even when the upper tube is in the convection region) is enough to ‘simulate’ 
full nucleation from the upper tube, again supporting Cornwell's hypothesis that at low 
heat fluxes, the majority of the heat transfer from upper tubes in a bundle is due to 
convection effects from below. Figure 22 also clearly shows that there is no effect of 
spacing for smooth tubes except at high heat fluxes, as before (above 20 A}V/m*). For 
the High Flux tube it is clear that there is no effect of spacing in the decreasing portion 
of the curve as before. It is unclear what influence spacing may have on the increasing 
curve as any effects appear quite random. This suggests that the effect of spacing in this 
region is very small if not negligible. As mentioned earlier, the segment of the increasing 
High Flux curve between 500 and 1000 HW/m? is parallel and very close to the same seg- 
ment for the smooth tube curve. Note that for the smooth tube, the curve is the same 
for increasing and decreasing heat flux, suggesting that the top tube is not nucleating 


at these low heat fluxes and that the enhancement seen is due entirely to the sweeping 
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bubbles from below. This implies that both tubes experience very similar convective 
effects when influenced by a vigorously boiling tube below. This was discussed in more 
detail earlier. 

e. Lower Tube Heat Flux Setting of 25 kW/m 

Figure 23 shows results for a LTHFS of 25 AW/m? and is very similar to 
that for 10 KW/m?. It should be noted that the lower tube in each case was nucleating 
from the beginning of the run. The only region where spacing has any effect is in the 
high heat flux boiling region (above 20 kW/m?) for the smooth tube. As in the previous 
case, any effects of tube spacing on the High Flux tube can be considered negligible. 
Again, of particular interest is the segment of the increasing curves between 500 and 
1000 W/m?. Here the curves for the smooth and High Flux tube fall on top of one an- 
other, further implyimg that at low heat fluxes (with the lower tube nucleating vigor- 
ously) the convection effects on the two types of surface are the same. Of note is the 
excellent repeatability of the data. 
3. Both Tubes Subject To the Same Heat Flux 

In addition to the data already presented, two additional runs were conducted, 
(one for each type of tube) in which the upper and lower tube were run up and down 
together at the same heat flux setting; these tests were both conducted with a p/d of 2. 
It should be noted that the upper and lower tubes were in the convection region at the 
beginning of the runs. The results of these two tests (for the upper tube only) are shown 
in Figure 24. The High Flux tube data fall on top of previous data, showing no effect 
of the lower tube throughout the entire heat flux range. This was expected due to the 
‘repeatability’ of the High Flux tube shown in Figure 19 through Figure 23. The 
smooth tube shows a much earlier incipient heat flux for the upper tube. However, there 
is a large step in heat flux at this point due to the upper tube suddenly nucleating at a 
lower than expected heat flux (the cause of this nucleation is unknown and may be just 
a function of the randomness of this phenomenon mentioned earlier). Apart from its. 
early ONB, the smooth tube follows a very similar boiling curve to that shown previ- 
ously for a p/d of 2. At the lowest values of heat flux, the hysteresis ‘loop’ is still slightly 
open; this is because the lower tube still has a small number of active nucleation sites 
which are slightly enhancing the top tube. At | &capflux., the difference between the 
increasing and decreasing values of AT is similar to that found on Figure 20 for a 
LTHFS of 1 AW/{n?. This also true for the other LTHFS, i.e.the curve on Figure 24 
coincides at one point with the boiling curves in Figure 19 through Tigure 23 at the 


respective LTHFS. Of particular interest is that the foregoing results agree with and 
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complement certain results found from the bundle apparatus in the Heat Transfer labo- 
ratory. Not too many conclusions can be drawn from Figure 24 due to the lack of data 
taken at other spacings. This is one area which should be further investigated in the 


future. 
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VI. CONCLUSIONS 


1. There is no effect of tube spacing on High Flux tube performance at any heat flux. 


2. The effect of tube spacing on smooth tube performance is present (but small) in the 
convection region. At high fluxes (> 20 kW/m’), there is a systematic dependence on 
tube spacing with a p/d ratio of 1.8 giving the best heat transfer performance. 


3. A nucleating lower High Flux tube significantly enhances an upper High Flux tube in 
the convection region due to bubble sweeping. There is no effect of a heated lower tube 
on a nucleating upper High Flux tube. 


4. A vigorously nucleating lower smooth tube (> 10 KW/m?) eliminates all hysteresis ef- 
fects on an upper tube. A partially nucleating lower smooth tube (< 3 AW/m?) signif- 
icantly enhances (by an order of magnitude) an upper smooth tube. 


5. For low upper tube heat flux settings (< 1000 W/m?) and vigorous nucleation on the 


lower tube, High Flux and smooth tubes exhibited similar performance demonstrating 
that the majority of the heat transfer is due to bubble sweeping from below. 
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Vil. RECOMMENDATIONS 

1. Continue present work with other spacings and ‘bundle’ configurations. 

2. Adapt the current apparatus to provide a larger evaporator to accommodate more 
than two tubes. This would probably also provide better conditions for videotaping the 
phenomena within the evaporator. 

3. Resume experiments operating both tubes at the same heat fluxes for other spacings. 
4. Pursue modeling of the enhancement effect, taking into account the mixed effects of 
convection (from a lower tube). Studies of a smooth tube placed above an enhanced 


tube might shed light on this. 


5. Measurement of temperature in the plume from the lower tube to study the effect of 
spacing in both the natural convection and boiling region. 


6. Acquisition of a Hewlett-Packard to IBM converter would greatly increase the ability 


to produce results from processed data within a short time frame. 


7 


APPENDIX A. SAMPLE CALCULATIONS 


Data set DAT0529152 was chosen for sample calculations. The saturation temper- 
ature was 2.25 °C, the heat flux on the upper tube was 35590 W/m’. 


A. TEST-TUBE DIMENSIONS 


Do = 0.01582 m 


Di=0.0132 m 


Di =0.013 m 


L=0.190 m 


Lu =0.076 m 


B. MEASURED PARAMETERS 


Vi =147.55V 
I. =2.44A4 

Tl = 5.88 °C 
T2 = 4.90 °C 
TS =s285-0 


T4 not read, defective 


15 =s ae 


16 = 7.06 -¢ 
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TT? =5.66 °C 
fise— 5.48 °C 
Tsat = 2.25 °C 
keo=45 Wim-K 


C. OUTER WALL TEMPERATURE OF THE TEST TUBE 


p=n+Do=x+0.01582 = 0.0497 m 
Ac = n(Do* — Di*)/4 = n{(0.01582)* — (0.0132)"}/4 


Ac = 5.97 x 107 m? 


Qh = VI = 145.55 «2.44 = 360.02 W 


Tavg = ET nlm 5,73 °C 


where m = the number of operational thermocouples used 


Two = Tavg — Qh+ { In(Do/D1)|(2+2+L+kc)} 


po 5.73 — 360.02( ini oe \/(2* m+ 0.2032 « 45)} 


Two = 4.48 °C 
© = Two — Tsat = 4.48 — 2.25 = 2.23 °C 
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D. PROPERTIES OF R-I14 AT FILM TEMPERATURE 


Tf = (Two + Tsat){2 = (4.48 + 2.25)/2 = 3.36 °C 


u = exp[ —4.4636 + (1011.47/T/)] « 107° 


uw = exp[ —4.4636 + (1011.47/(3.36 + 273.15))] « 107? = 3.76 x 107 N«s/m? 
Tc = Critical Temperature(° R) = 753.95 °R 
TAC R) 498.05 °R 
j=1— TARY Tc(R) = 1 — 498.05/753.95 = 0.34 
p = 581.77 + 984.15j'? + 263.02 + 279.99/'/? + 17.94)? 
o = 1522.7 kg/m* 
v = p/p = 3.7605 x 107°/1522.72 = 2.47 x 107” ls 
k=7.1x10 “—(261x10 - mca) 
k= 7.1 x 107* — (2.61 x 107 - 3.36) = 7.01 x 107? WimeK 
Cp = 400 + 1.65 + Tf + (1.51 x 107° » Tf’) — (6.68 x 107” - Tf’) 


Cp = 959.86 J/kesK 
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107° 


ee eee —8 2 
1522.72-950.956 7) < 10 mis 


a=k/p+Cp=7.0224 x 


B = — (Ap/AT)/p = 1.02011 x 107°(1/K) 


fr—via=5.15 


E. HEAT FLUX CALCULATION 
Using Churchill and Chu s correlation for a cylinder in natural convection, the heat 


transfer coefficient from one non-boiling end can be calculated as: 


g*BeDo*«@-tanh(me Lu) 


FE eles Te Ronin Saale Mame 9 (6) 
veaelLuem ; 
vé+ 05674 —_———————qeme— 


A 
[1 + (0.559/ Pr)! °}8/27 


~s 
Do 
where 


m = {(h« p){(ke » Ac)}" 


and h was computed through an iterative process beginning with an assumed h of 
190W]m?.K. The resulting h and m were: 


h=110.78 W/m?. K 


m = 45.28 


Of =(hepekcs Ac)? +©-«tanh(ms Lu) = 0.27 W 


F. HEAT FLUX THROUGH ACTIVE BOILING SURFACE 


QO = Qh—2+QOf= 360.02 — 2(0.27) = 359.47 W 


Ab=neDoeL=2+0,01582 «0.2032 = 1.01 x 107? m? 
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q = Q/Ab = 359.47/1.01 x 107? = 35595 Wim" 


h=q |© = 35595/2.23 = 15955 Wim? K 


The following results were produced by the data acquisition and reduction program 
DREZ: 


g = 35590 Wim? 


h= 15969 Wim?.K 


© = 2.23 °C 


The calculations were exactly the same for both tubes. 
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APPENDIX B. UNCERTAINTY ANALYSIS 


For comparison purposes, uncertainty was determined using the same methods 
(those of Kline and McClintock (Ref. 18]) as Sugiyama in single tube work (Ref.1 Ap- 
pendix E]. Four data points (two for the smooth tube and two for the High Flux tube) 
were selected for the uncertainty analysis. These points were selected such that uncer- 
tainty could be determined in the high and low heat flux regions for each tube. The 
points selected were data sets 19 and 35 from run DAT0529D52 and data sets | and 13 
from run DAT0425D42. The following is a sample calculation of uncertainty for data 
set 19 of run DAT0529D52 (i.e. low heat flux setting on the High Flux tube). Measured 
and calculated parameters were obtained as in Appendix A, sample calculations. All 
uncertainties are expressed as a percentage of the calculated parameter. Results are shown 
in Table 5 


A. UNCERTAINTY IN INPUT POWER. 


Qh=VI 


[s=0.37 V 6f=+0.025 A 


where 6 = uncertainty in measurement and calculation 


ees V | 66V=+0.05V 


I =1.92-/s=0.71A 


V =25-Vs=43.78V 


5Qh|Qh = ((6V/Vs)* + (SI/Is)°)'! 
5Qh/Qh = ((0.05/1.75)? + (0.025/0.37)*)"? 


5SQhIQh = 7.33 
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B. UNCERTAINTY IN SURFACE AREA 


Ab=nz-eDoeL 
Do = 15.82mm d0Do=0.lmm 


L = 203.20mm 6L =0.lmm 


5 Ab| Ab = ((5Do/Do)* + (5L/L)’)'” 


5 Ab] Ab = ((0.1/15.82)? + (0.1/203.2)°)' 


5Ab/ Ab = 0.63 


C. UNCERTAINTY IN WALL SUPERHEAT 
AT = Two — Tsat 
Tsav=2.27°C ‘oO lsar =O c 


Two = Tavg — QA[( In(Do/D1))/(2+2z-Lekc)] 
Tn = thermocouple readings 


TL =2.76°C = T2=2.61°C 
(3 = 27 Giee T4(defective thermocouple) 
TS = 2.74°C T6 = 2.81°C 
T7 =2.76°C T8 = 2.74°C 


Tavg = (Tn!/7) 
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maere hn = |to3,5to8 


Tavg = 2.73°C 


S.D. = ((£(Tn — Tavg)*)/n)'? = 0.061°C 


where §.D. = standard deviation 


Compared to Tavg, the logarithmic term in the equation for Two is small and is 
neglected for the uncertainty analysis. 
Two = Tavg = 2.73°C 6Two=S.D. =0.061°C 


AT =0.37°C 


SAT/AT = ((5Two/AT) + (6Tsat/AT)’)'” 
SATIAT = ((0.061/0.368)* + (0.01/0.368)*)'/* 


dAT/AT = 16.8 
D. UNCERTAINTY IN HEAT FLUX 


q =(Qh—2-+OQfAb 


Qh = 31.08W 6Qh = 2.28W 


Assuming the same proportion in the uncertainty for Qf (losses from the unheated ends): 


Of =1.6W S0f=0.12W 


OQh—2+Of=27.9W 


Sq lq’ = {(SQh|(Qh — 2+ ON)? + (2+ Of Oh — 2+ ON)? + (6Ab/ AbY}!? 
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5q /q° = {(2.28/27.88)* + (2 + 0.12/27.88)" + (0.0063)"}' 
5q/q =8.21 
E. UNCERTAINTY IN BOILING HEAT TRANSFER COEFFICIENT 


h=q AT 

Sh/h = {(5q 19)’ + (6AT/AT)}'” 
Shih = {(0.0821)* + (0.168)7}" 
dh[h = 18.7 


Table 5. UNCERTAINTY ANALYSIS FOR FOUR POINTS 


i 2685 W/m? 38440 W/m 3070 W/m? 35590 W/m? 
6QnOn(%) | 701 fn 733 
PSATIAT (%) E252 6S 808 
pohih(%) 802838 8 









Uncertainties listed in Table 5 show that the main source of uncertainty 1s in the 
measurement and calculation of AT. The uncertainty in AT is probably due to inaccu- 
racies introduced during the manufacturing process. For instance, the solder pools at- 
taching thermocouple wires to the interior sleeve may have impurities (e.g. small air 
gaps) which in close proximity to the thermocouple junction could affect the local heat 
resistance and thereby the temperature. Eight thermocouples were used to obtain the 
wall average and reduce this uncertainty. This-also points out that further improvements 
in accuracy must be made in this area first. Graphical displays of uncertainty are shown 


in Figure 10 and Figmresiie 
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APPENDIX C. REPRESENTATIVE DATA SET 
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Date : 6 Apr 1992 


NOTE: Program name : ORP72 
Orsk number = 90 
New file name: DATO406142 
TC 18 defective at location § 
No defective AUX TCs exist 


Tube Number: 4 

Data Set Number = 1 Bulk Oil % = 9.0 
TIME: 16:09:93 
TC No: 1 Z 3 4 S 6 7 8 
Temp : 2.61 2.62 2.64 o66e -39.99 2.6! 2.62 256 
TC No: g 1Q 11 lz TS 14 is 16 
Temp : 16.87 27.84 22.11 26.6! 10.17 27.90 18.5! 23.24 

Twa ATwa Tliad Tliqd2 Tvaor Psat Tsump 

2.62 21.59 w228 oral 2.28 1.70 <-16.5 
Thetab Htube Qdp Athetab Ahtube AuQdp 


-996 1.7966+95 G.112E+02 19.525 S-O93e+02 —S.dsee05 


Data Set Number = 2 Bulk O11 % = Q.9 


TIME: 16:10:51 

TC No: 1 2 3 4 S 6 a 8 
Temp : Zeal Laie acto 2010 -daecd 2.68 2.68 re oe 
TC No: g 10 | 12 13 14 1S 16 


Temp : 16.87 27.86 22.10 26.60 10.15 27.89 18.46 23.21 
Twa ATwa Tliad Tliqd2 Tvaopr Psat Tsump 
2.780 21.58 aro) 2.24 2.26 -1!.69 -16.5 
Thetab Htube _ Qdp Athetab Ahtube AuQdp 
.437 1.384&+03 6.0486&+02 19.309 §.074E+02 9.798E+05 


Data Set Number = > Bulk Oil % = QO. 


TIME: 16:19:44 
TC No: 1 a 3 4 S 6 7 8 
Temp : 3.42 3.52 3.49 3.47 -99.99 3.40 3.402 3.82 
TC Na: g 10 11 12 hs) 14 1S 16 
Temo : 16.86 27.86 22.07 26.63 10.08 27.94 18.50 23.25 
Twa ATwa Tliaqd Tliqad2 Tvaopr Psat Tsumo 
3.45 21.58 eucd 2.2 2o24a 7 lo cue ora 
Thetab Htube Qdp Athetab Ahtube AuQdo 


1.206 1.307E+03 1.S77E+03 19.342 S.1QQ0E+02 9.864E+03 


Data Set Number = 4 Bulk O11 % 2 Q.2 


TIME: IG:16:21 
TC No: | a 3 4 = 6 7 8 
Temp : 3.43 3252 3.51 3.48 -99.99 3.42 3.40 3.54 
TC No: g 12 11 le i3 14 1S 16 
Temp : 16.87 27.9S 22.07 {6.52 002 27.33 0 fences. 
Twa ATwa Tliad Tliqgd2 Tvapr Psat Tsumo 
3.46 21.59 ALAS) foe 2.27 -1.69 <-1I6.4 
Thetab Htube Qdp Athetab Ahtube AuQdp 


1.189 1.32684035 1.574E6+03 "1925 me §S7106e+02 J 7aece «05 


Data Set Number = S Bulk O11 % = Q.2 


TIME: 16:22:00 

be yta- | eo 3 4 S 6 7 8 
Temp : 447 4.66 1.64 4.629 -99.99 4.45 4,434 ES 
Leola: 5 12 11 le 1S 14 1S 16 
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hemp: 96.02 27. foci doemeo. oom. O08 (2¢.55, 119.4350075.18 


Twa ATwa Tliad Tliqad2 Tvapr Psat Tsump 

4.64 21.S2 2.25 2.18 e.cd 71.74 “16.3 

Thetab Htube Qdo Athetab Ahtube AuQdp 

c.de! 1.270E+05 2.948E&+903 $19.30! S.106E+02 9.8SSE+03 
Data Set Number = 6 Bulk O11 % = Q.0@ 
TIME: 16:22:41 
TC No: | 2 3 4 S 6 fi 8 
Temp : 4.Sl 4.65 4.62 4.$7 -99.99 4.45 4.44 4.64 
TC No: 9 12 i 12 13 14 1S 16 


Temp : 16.81 27.78 21.98 26.55 10.06 27.86 18.45 23.17 
Twa ATwa Tliqd Tliqd2 Tvapr Psat Tsump 
4.54 21.52 2 Os | Zed 2.20) ~|.?oee-16.2 

Thetab Htube Qdp Athetab Ahtube AuQdp 
2.505 1.279&€+03 2.948&+03 %19.283 S.1I6E+02 9.865E+05 


Data Set Number = 7 Bulk O11 % = Q.@ 


TIME: 16:27:34 

TC No: | Zz 3 4 S 6 7 8 
Temp : 6.63 §.9S 6.89 6.82 -99.99 §.48 6.48 6.92 
TC No: 9g 10 V1 12 13 14 1S 16 


Temp : 16.79 27.80 21.97 26.57 10.00 27.88 18.43 23.19 
Twa ATwa Tliqd Tliqd2 Tvapr Psat Tsump 
6.70 21.51 iat eal 2.20 -1.75 -16.2 

Thetab Htube Qdp Athetab Ahtube AuQdp 
4.484 1.269&€4+03 S.689E+03 19.296 S.113E+02 9.867E+03 


Data Set Number = 8 Bulk Oil % = 0.2 


TIME: 16:28:36 

TC No: 1 * 3 4 5 6 a 8 
Temp : 6.58 6.95 6.89 6.81 -99.99 6.SS §.S5 6.95 
TC No: 9g 12 11 te 13 14 1S 16 


Temp : 16.89 27.88 22.06 26.65 10.20 27.96 18.54 23.27 
Twa ATwa tliad Tliqd2 Tvapr Psat Tsump 
6.72 21.51 2.30 2025 2.52 71.66 -16.1 

Thetab Htube Qdp Athetab Ahtube AuQdo 
4.419 1.292€+0@3 S.709E€+03 19.313 S.1I3I1E+02 9.909E+03 


Data Set Number = 9 Bulk Oil % = Q.0 


TIME: 16:30:19 
TC No: 1 2 3 4 5 =) vi 8 
Temp : 6.64 6.99 §.94 6.86 -99.99 6.62 6.60 6.97 
TC No: 9g 12 11 12 i) 14 1S 16 
Temp : 16.89 27.90 22.08 26.67 10.19 27.99 8.55 23.50 
Twa ATwa Tilted Tliad2 Tvapr Psat Tsump 
Be77) <2iaSS Aes |=) a: eado 77.55 ~-16.1 
Thetab Htube Qdp Athetab Ahtube AuQdp 


4.443 1.28S5E+03 S.7IQ@E+03 19.504 S.1328+02 9.906E+05 


Data Set Number = {0 Bulk Oil % = Q.2 


TIME: 16:56:47 
TC No: 1 A g 4 S 6 7 8 
Temp : B.S? 9.15 9.93 6295-39-99 8.48 8.S] 9.26 
TC No: | 1Q@ 1] i ie 14 1S 16 
heap > 16.380 <27.82 20-99 266259 10.03. 27.90 pug .44 23.21 
Twa ATwa Tliad Tliad2 Tvapr Psat Tsump 
Be? cli. 95 Ramet nt ald C.25 “slate. tans 
Thetab Htube Qdo Athetab Ahtube AuQdp 


gesso 1 ede tOs Pe-45le +05” 192298" S.1S5SE+Oc 9. 3904E+05 
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Data Set Number = II Bulk O1l % = Q.9 


TIME: [6:37:31 
TC No: 1 Zz 3 4 S 6 i 8 
Temp : 8.67 9.15 9.07 8.96 -99.99 8.57 8.S4 9.04 
TC. Nee 9 1Q Tl ie is) 14 1S 16 
Temo : 16.83 27.85 2.01 26.61 (0.94 27.93 18.48 25.24 
Twa ATwa Tliad Tligd2 Tvaer Psat Tsump 
-8.81 21.56 aves eves Nae ad WN Ae || 2 
Thetab Htube Qdpe Athetab Anhtube AuQdp 


6.549 1.288E€+03 82455E+05 19.302 S.4IE+O2 3° 924E708 


Data Set Number = 12 Sulk O11 % = Q.9@ 


TIME: 16:46:52 

TC No: | Z B} 4 5 6 te 8 
Temp : 10.81 11.49 (1.44 11.32 -99.99 10.67 10.70 11.45 
TC No: 9 10 11 i2 LS 14 15 16 


Temp : 16.85 27.92 22.93 26.67 10.02 28.390 18.49 23.28 
Twa ATwa Tliqd Tliqd2 Tvapr Psat Tsumo 

IeO6 Z2iesd 2.58 2.26 2.c8 71.67 715.5 

Thetab Htube Qdp Athetab Ahtube AuQdp 
8.771 1.314€+03 1.1S2E+04 19.305 5.1S52E+02 9.946E+03 


Data Set Number = 13 Sulk Oi1 % = QO. 


TIME: 16:47:44 

TC No: 1 2 3 4 S § t4 8 
Temp : 10.76 11.52 11.44 t1.21 -99.99 10.73 10.71 11.36 
TC No: 9 18 11 eel gs 13 14 1S 16 


Temp : 16.85 27.89 22.01 26.65 10.01 27.97 18.49 23.25 
Twa ATwa Tliqd Tliqd2 Tvaopr Psat Tsump 

11.03 2757 2.52 2.24 2.27 71.68 715.4 

Thetab Htube Qdp Athetab Ahtube AuQdp 
8.759 1.318€+03 1.1S4E+@8 19.296 S.166E+02 9.969E+035 


Data Set Number = 14 Bulk O11 % = Q.9 


TIME: [Sco7sa5 

TC No: 2 5 & 5 6 7 8 
Temp : 12.48 13.36 3.26 15.10 =932593 12°23 sO ie J 
TC No: 3 1@ 11 le ie) 14 15 16 


Temp : 16.80 27.91 21.99 26.66 9.97 27.99 18.45 23.2 
Twa ATwa Tliqd Tliqd2 Tvapr Psat T sumo 

[2.77 20356 2220 2.18 2.18 -1.77 -~4e9 

Thetab Htube Qdp Athetab Ahtube AuQdp 
10.576 1.3352E€+05 1.4Q096€+@4 19.366 5.1S8E+02 9.989E&+03 


Data Set Number “= 15 S8ulk Oil % = 0.0 


TIME: 16:58:31 
TC No: | Pa 3 4 5 6 i 8 
Tema : 12.40 13.56 13.29 [3.14 -99.99 12.46 12.46 135.56 
TC No: 9 1@ | ts (3 14 1S 16 
Temp =: 16.94 27.32 22.02 926260 10-00 28-02 1Ge44 247-4 
Twa ATwa Tliqd Tliad2 Tvapr Psat Tsumo 
12.84 21.59 2.24 cet cone =li74 =Vaeeg 
Thetabd Htube Qdp Athetab Ahtube AuQdp 


10.619 1.330E+@3 I.4TlE+O4 (9°569" So 17teo2 eeuse-o4 


Data Set Number = [6 Bulk Oi1 % = 0.2 


TIME: 17:05:20 
TGatte:? I ey sj 4 5 5 7 8 
Temp : i oo 16.05 15.34. tazey2 -99.39 14.135 4308 Wsrees 
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TC No: = 1Q 11 lz is 14 [s 16 


temo. (6.64 27996 22 .Q0dmeo sos 19.02 28292 18.49 25.26 
Twa ATwa Tliaed Tliqd2 Tvapr Psat Tsump 

Ls Sata De =), ota Rage cul Sa =1274 ~=-(255 

Thetab Htube Qdp Athetab Ahtube AuQdp 


12.500 1.5656+@05 1.6796+04 19.570 S.17@E+@2 1.0016+04 


Data Set Number = 17 Bulk Ot11 % = 0.0 


TIME: 17:05:42 
TE eNo = | 2 3 4 S 6 7 8 
Temp : 14.12 165.39 6.28 14.77 -99.99 14.15 14.16 15.102 
TC No: ) 12 11 12 13 14 1S 16 
Temp : 16.835 27.93 22.02 26.69 9.98 28.02 18.49 23.28 
Twa ATwa Tliqgd Tliqd2 Tvapr Psat Tsump 
14.61 21.59 2 an 2 le 2.c0 -1.75 ~14.4 
.Thetab Htube Qdp Athetab Ahtube AuQdp 


2536 SieostetO>  12679E+04 19.376 Salsee+O2 3. 3966E+OS 


‘Oata Set Number = 18 Bulk O11 % = Q.@ 


Tee: 17:10:46 

TC No: | Z 3 4 S 6 7 8 
Temp : 15.64 16.91 16.80 16.36 -99.99 16.07 16.01 16.72 
TC No: 3 1Q 11 iP he} 14 1S 16 


Temp : 16.68 27.63 21.81 26.40 S352 27.7 18.31 25-03 
Twa ATwa Tliad Tliad2 Tvapr Psat -Tsump 

Goat 2bo3a7 2ec9 2.16 2.14 1.80 14.2 - 

Thetab Htube Qdo Athetab Ahtube AuQdp 
14.067 1.806€+03 1!.978&+04 19.198 S.147E+02 9.881E+03 


Data Set Number © {9 Sulk Oil %2 = Q.90 


TIME: 7a 22 
TC No: | 2 B' 4 S 6 7 8 
Temp : 15.54 16.84 16.735 16.36 -99.99 16.06 15.96 16.890 
TC No: g 12 11 2 We 14 1S 16 
Temp : 16.68 27.64 21.80 26.41 SsIeec7 (cemeese 25.08 
Twa ATwa Tliad Tltqad2 Tvapr Psat Tsump 
16.2! 21.38 FAAP AS: 2.1S 2wliSe ~1.80 ~—14ag 
Thetab Htube Qdp Athetab Ahtube AuQdo 


14.036 1.407E+03 1.97S5E+04 19.207 S.139E+02 9.870E+03 


Data Set Number = 20 Bulk O11 % = Q.90 


TIME: 17:16:58 
TC No: | 2 3 4 = 6 Z 8 
Temp ? (7440 18.39 [8ac3 17.64 -99.99 17.89 17.62 18.27 
TC No: g 1Q 11 i iS 14 1S 16 
Temp : 16.77 27.72 21.88 26.50 9.98 27.79 18.39 23.08 
Twa ATwa Lived Tliqad2 Tvapr Psat Tsump 
17.78 201.45 Ne Pe) 2.20 -1.72 <-13.9 
Thetab Htube Qdp Athetab Ahtube AuQdp. 


1§.559 1.SIGE+O05 2.5556+04 19.206 S.148E+@2 9.986E+05 


Data Set Number = 21 Sulk Otl1 % = 9.90 


TIME: 7s 40 
TC No: | ‘el 5 4 S 6 74 8 
levoucewionoo | la. S5 sclonlGesls.62 -S9a05™ 17.82 07.64 18.24 
Tene: 9 10 11 2 15 14 1S 16 
ence leases cee 21.9) “s6e5e0)10.0C  o7seen 18.40 25.1 
Twa ATwa Pliad TLiqgdZ2 Tvapr Psat Tsump 
Wie Slee foe ERS 2.19 #-!1.735 -135.8 
Thetab Htubs dp Athetab Ahtube AuQdp 
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1.51! {.S226&+@3 2.360E+94 19.254 S.1S9IE+O2 9.9235E+03 


Data Set Number = 22 Bulk Oil % = 8.8 


TIME: 173 23ees 
TC No: je” . 5 4 S 6 7 8 
Temo : 18.56 18.95 19.94 18.14 -99.99 19.66 18.75 18.83 
TC No: 9 1@ 11 12 ee 14 iS 16 
Tempo : 16.77 27.735 21.99 26.50 10.07 27.81 eeetOe 25011 
Twa ATwa Tliad Tlhiqd2 Tvapr Psat Tsump 
18.65 21.47 2.ca Ecc 2.le =berr =T325 
Thetab Htube Qdo Athetab Ahtube AuQdo 


16.455 1.72S5€+0@35 2.8386+04 19.274 S.138E+O2 9.905E+O5 


Data Set Number = 235 S8ulk O11 % = @8.@ 


Ine: Waizoeo7 

TC No: | % 3 4 S 5 7 8 
Teme : 18.50 18.93 18.88 18.11 -99.99 19.65 18.72 18.81 
TC No: 9 18 11 12 13 14 1S 16 


Temp : 16.77 27.74 21.90 26.52 110.05 27.83 18.42 23.12 
Twa ATwa Tlied Tliqd2 Tvapr Psat Tsume 

le-6S 2'. 4g Ps, =| Cure 2cle “leaG =~ toes 

Thetab Htube Qde Athetab Ahtube AuQdp 
16.442 1.729&+@5 2.843E+04 19.291 S.126E+@2 9.889E+03 


Data Set Number = 24 Bulk O11 % = 0.2 


TIME: | 17:29:40 

TC No: 1 2 3 4 = 6 7 8 
Temp : 19909 19968 19.33" (Smee -SERES ZiOieee EO SS. 1c 
TC No: a 10 ie 12 13 14 rs 16 


Temp ; 16.83 27.802 21.96 26.58 10.09 27.87 18.47 23.14 
Twa ATwa Tliqd Tliqd2 Tvaer Psat Tsumo 

19.23 .2iess fees 2.18 2.17 1.76 13.1 

Thetab Htube Qde Athetab Ahtube AuQdp 
17.029 1.969€+@35 3.355356€+@4 19.320 S.122&+@2 9.896E+035 


Data Set Number = 25 Bulk O11 % = @.@ 


TIME: 17:30:27 

TC No: I Pe 5 4 S 6 Z 8 
Teme : 19.10 19.42 19.32 18.42 -9ae99 21.@28 19.60 13:76 
TC No: 9 10 11 12 13 14 1S 16 


Temp : 16.84 27.81 21.97 26.60 10.11 27.89 18.48 23.18 
Twa ATwa Tliaqd Tliqd2 Tvapr Psat Tsump 

19.24 21.94 coe | 2.13 =| eats. 

Thetab Htube Qdo Athetab Ahtube AuQdp 
17.010 1.968€+03 3.3486+04 19.517 S.1@7E+02 9.865E+03 


Data Set Number = 76 S8ulk Oil % = 8.8 


TIME: l7-Soe55 
TC No: | Z E| 4 S 6 7 8 
Tema : 19.60 $19.79 I19.81 18.74 -99.99 22.75 20.47 19.48 
TC No: 9 1Q il 2 13 14 1s 16 
Tema : 16.81 27.76 21.95 26.54 10.06 27.85 18.44 235.15 
Twa ATwa Tliad Tliqd2 Tvapr Psat Tsump 
19.84 21.49 Coe 2.18 221) - less =) ear 
Thetab Htube Qdoe Athetab Anhtube AuQdoe 


17.705 2.449€+035 4.35355E+04 19.561 S.0966+02 9.866E+05 
Data Set Number = 27 Bulk 911 % = 8.2 


TIME: 17:36:50 
TC No: a 5 4 S 5 7 g 
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Tempra Oc 1.9. Ole S Semus. (Oo oe. (Oe OS a9. SS 


TC No: g 12 11 l2 13 14 15 16 
Tempo : 16.37 27.80 21.98 26.58 10.18 27.88 18.51 23.18 
Twa ATwa Tie Tliqd2 fTvapr Psat Tsump 
[3.07 e255 eB) aa Bs 2.20 =lke 73 —WeR6 
Thetab Htube Qdp Athetab Ahtube AuQdp 


17.659 2.456E+05 4.5352E+04 19.352 S INGE+O2 FeerSE+O3 


Data Set Number = 28 Sulk O11 % = Q.2 


TIME: 17:40:26 
TC No: | 2 5 4 S 6 7 8 
Temp : 20.25 20.32 20.40 19.23 -99.99 24.53 21.18 20.00 
TC Nos 9 1Q 11 l2 13 14 1S 16 
erp > 'G.@deec7sG5eecl. 99 .6.60 10.17 227591 9eees3 225.22 
Twa ATwa Tliad Tliqd2 Tvapr Psat Tsump 
20.50 21.58 75 Oe 2.08 2.14 1.75 <-12.3 
Thetab Htube Qdp Athetab Ahtube AuQdp 


18.277 3.3512€+03 6.054€+04 19.359 S.Q@83E+02 9.839E+03 


Data Set Number = 29 Bulk O11 % = Q.2 


TIME: 17:40:48 

TC No: 2 3 4 S 6 7 8 
Temp = 20020 -<U-cO8 cl-SG0nlc.ec -99.99 a4.5!1 “ie? “2y.00 
TC No: | 12 V1 12 13 14 15 16 


Temp : 16.85. 27.74 21.93 26.51 190.13 27.82 18.47 23.15 
Twa ATwa Thiad Tliqd2 Tvapr Psat Tsump 

2@.48 21.51 73 Ago] Pe Fae 2.16 =1.74. = P22 

Thetab Htube Qdp Athetab Ahtube AuQdp 
18.254 3.306E+03 6.034E€+04 19.283 S$.096€+02 9.826E+05 


Data Set Number = 32 Bulk O11 % = Q@.2 


TIME: \ealisec 

TC No: | ze 3 4 = 6 ci 8 
Temp : 20.25 20.51 20.38 19.22 -99.99 24.5! 21.17 20.00 
TC No: 9 12 11 Z 13 14 1S 16 


Tempo: etG.66 27.77 21.955 26.55 910014 27.85. 6-50 23.16 
Twa ATwa Tliaqd Tliqd2 Tvapr Psat Tsump 

20.48 21.53 2.30 One? 2.135 -1.76 -12.2 
Thetab Htube Qdp Athetab Ahtube AuQdp 
18.275 3.31@&+03 6.@049E+04 19.323 5.100E+02 9.854E+903 

NOTE: 29 data runs were stored in file OATO4Q61 42 


Date : 6 Apr 1992 


NOTE: Program name : ORP72 
Disk number = QQ 
New File name: DATO406042 
TC 13 defective at location § 
No defective AUX TCs exist 
Tube Number: 4 


Data Set Number = | 8ulk Oil % = 0.2 
TIME: 17:48:16 
TC No: | 2 B) 4 5 6 7 8 
Temo : 19.68 19.85 {9.85 18.76 -99.99 22.85 20.94 19.54 
ne No: 3 1Q bal as 13 14 1S 16 
fianpeeelG. GO sec7er Oe loose) co.46, 210.07 ° se7 279: Mate 25. 1S 
Twa ATwa Mied Tliqad2 Tvapr Psat Tsump 
19.89 21.47 Ag | Ses Selita lee Oo — ilar 


13 


Thetab Htube Qdo Athetab Ahtube AuQdp 
17.700 2.481E+0@353 4.3592E+04 19.279 S.1I1@E+@2 9.850E+03 


Data Set Number 2 - Gulk O11 %.™ @.9 


TIME: 17:49:07 
TC No: = 3 4 5 § i 8 
Temp : 19.64 19.88 19.88 18.78 -99.99 22.85 20.S52 19.56 
TC No: g 19 11 12 13 14 1S 16 
Temp : 16.79 27.66 21.87 26.45 10.11 27.75 18.42 23.07 
Twa ATwa Tliad Tliqd2 Tvapr Psat Tsump 
19.99 21.45 Pap Bye 2.298 2.14 <-1.75 <-11.7 
Thetab Htube Qdp Athetab Ahtube AuQdp 


17.685 2.476E+03 4.378E+@4 19.231 S.112E+0@2 9.830E+03 


Data Set Number = 3 Bulk O01: % = Q.9 


TIME: 17:54:28 
TC Nee 1 Z 3 a S 6 7 8 
Temp : 18.55 19.04 18.96 18.18 -99.99 19.76 18.77 18.87 
TC No: g 1@ 11 12 13 14 1S 16 
Temp : 16.70 27.60 21.79 26.38 9.99 27.68 18.33 23.09 
Twa ATwa Tliqd Tliqd2 Tvapr Psat Tsump 
18.79 2ic33 Pee) cal 2.09 -1.82 -11.S 
Thetab Htube Qdp Athetab Ahtube AuQdp 


16.552 1.7S5SE+03 2.90SE+04 19.226 S.121&+02 9.845E+03 


Data Set Number = 4 Bulk O11 2 = 90.90 


TIME: 17:55:19 

TC No: 2 3 4 = 6 7 8 
Temp : 18.61 19.05 18.96 18.17 -99.99 19.76 18.85 18.89 
TC No: g 10 11 12 Ls) 14 1S 16 


Temp : 16.71 27.635 21.80 26.4) 9,99, ~c7.71 e635 “Csele 
Twa ATwa Tliad Tligd2 Tvapr Psat Tsumo 


18.73 21.48 22265 Zone 2.12 =Re7s. 11.5 
Thetab Htube Qdo Athetab Ahtube AuQdp 
16.SS!1 1.756€+03 2.906€+04 19.222 §.122E+02 9.845E+03 
Data Set Number = S Bulk O11 2 = 0.90 
TIME: 18:91:43 
TC No: 1 Pe 3 4 S 6 vs 8 
Temp : 17.47 18.37 18.30 17.72 ~99.99 17.94 17.61 18.35 
TC No: 9 12 11 12 13 14 “15 16 


Temp : 16.70 27.60 21.78 26.539 9.96 27.67 18.32 23.07 
Twa ATwa Tliaqd Tliqad2 Tvapr Psat Tsump 

l7.0e “Zio? Pa) 2.18 2.99 -1.83 11.4 

Thetab Htube Qdp Athetab Ahtube AuQdp 
1$.678 1.SSSE+03 2.439&+04 19.225 §.140E+02 9.882E+03 


Data Set Number = 6 QSulk Ot! % = 0.9 


TIME: 19:02:25 
TC No: 1 2 3 4 5 6 7 8 
Temp : 17.49 18.350 18.25 17.75 -99.99 17.96 17.62 18.23 
TCONo: ss 19 11 12 13 14 1S 16 
Tempo : 16.75 27.71 21.86 26.50 9.99 27.79 18.59 23.18 
Twa ATwa Tligqd Tliqgd2 Tvapr Psat Tsump 
17.80 21.45 ee Eos evlQ -=l839  =11 7.4 
Thetab Htube Qdpo Athetab Ahtube AuQdp 


IS.627 1.S6CE+03 2 S42 FOweS (95. SS isee-d2 geseee- os 


Data Set Number = 7 Bulk OL1 % = 9. 
TIME: 1e2@7:l4 
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TC No: = 5 4 IS 6 ie 8 


Temp : 15.209 16.40 16.31 15.94 -99.99 15.69 1§.53 16.35 
TC No: | 1Q 11 fs 13 14 1S 16 
temo: iJI6.745 @€7.72 21.84 26.50 9.89 27.80 18.358 23.19 

Twa ATwa Tliaqd Tliqd2 Tvaopr Psat Tsumo 

PSu9e° 21,44 Pigs eueles Cee | (led 

Thetab Htube Qdp Athetab Ahtube AuQdp 


15.6565 1.4026+03 91 .SISE+O@" 19.281 S.1S5E+@2 9§.937E+03 


Data Set Number = 8 S8ulk Oi1 % = Q.Q@ 


TIME: 18:07:50 
TC No: | Zz 5 4 5) 6 u 8 
Tempo = 15.35 715.5! Gis.439I5.99 -99.99 15°53 19.55 16.49 
he Now | 1Q 11 Pea 9 14 1S 16 
Temes: 16.75 27.73 21.87 26.50 B.3¢ 27 Gllae. 33S 23,29 
Twa ATwa Tliad Tliqd2 Tvapr Psat Tsump 
15.86 21.46 evco 2.16 2.14 -1.80 <-Il1.4 
Thetab Htube Qdp Athetab Ahtube AuQdp 


13.690 1.3597E+03 1.912&+0@4 19.290 S.138E+02 9.912E+03 


Data Set Number = 9 S8ulk Oil % = 2.0 


TIME: 18:12:30 

TC No: ] 2 3 4 S 6 7 8 
tang > 12.6 Gmeo. 4c) loecomelseos -99.99 Jeus5 2 755megls.24 
TC No: 3 19 i L& \3 14 is 16 


Temp : 17.23 28.71 22.91 27.44 10.37 28.81 18.97 24.02 
Twa ATwa Tliqd Tliqad2 Tvaer Psat Tsumo 

izeag0 22.24 2.28 Page Fas Ccceamela?s =i 

Thetab Htube Qde Athetab Ahtube AuQdp 
109.564 1.337E+0@3 1.412E+04 20.002 S.198E+02 1.Q@40E+04 


Data Set Number = 10 Sulk Oil % = Q.@ 


TIME: 18:13:45 
TC No: | 2 3 4 S 6 7 8 
Nemo: UcnweolS.o4 loc 5 ew o> —-9o.99 sclera V2 See 15.25 
TC No: =) 1Q 1 tz iS 14 1S 16 
emotes lG.Ga eet eoe 2e.cd co.6e2 O7l2 27.95 18.48 23.51 
Twa ATwa Tliqd Tliqd2 Tvapr Psat Tsump 
12.75 21.60 Cae 2.18 2.20 «71.75 -11.4 
Thetab Htube Qde Athetab Ahtube AuQdp 


10.536 1.340&+0@3 1.4126+0@4 19.392 5.143&+02 9.973E+03 


Data Set Number = 11 Sulk Oil % = Q.2 
TIME: 19:14:59 
TC No: | 2 a) 4 5 6 7 8 
Teme 89a la.5o° 1S. Sh elo. cS 32.95 —§9.99 $12.59 (2.556 13.24 
TC No: g 1Q@ 11 IZ is 14 15 16 
em@ee lG.d¢ c¥.94 lc.So 82o.72 VIMeee 26.04 18.55 23.37 

Twa ATwa Tliad Tligd2 Tvapr Psat Tsump 

Patoe ol .67 Boe) eed 2.19 w-!.76 <-I1.4 

Thetab Htube Qdo Athetab Ahtube AuQdo 


10.547 1.34Q0E+05 1.4136€+04 19.469 S.161E+02 1.005&+04 


Data Set Number = I2 Sulk Oil % = Q.@ 


TIME: 18:15:27 

1G No: | e 3 4 5 6 a 8 

eno eels coe lls. oo elo. 5 elo — 4945 Sea g (2849 13.19 

ieato: | 10 11 lee 13 14 1S 16 

fWemgece loeG0- c7.4¢9 1292-2672! Ges ac? . SOs. 16. 22.96 
Twa ATwa i lvad Tiligdo Ivapr Psat Tsump 


B® 


(2.79) oltre, es rae ea | Citi ce el 
Thetab Htube Qdo Athetab Ahtube AuQdp 
10.S4S 1.3346€+03 1.4066€+@04 19.029 S.@6@0E+@2 9.628&+03 


Data Set Number = I35 Sulk O11 % = Q.2@ 


TIME: 18:20:06 
TC No: | Ps 3 4 S 6 7 8 
Temp : 9.58 10.38 10.34 19.11 -99.939 9.65 9.65 10.23 
TC No: 9 1 1] 2 13s 14 1S 16 
Temo : 16.S!t 27.11 21.70 25.94 9.92 27.19 18.0S 22.71 
Twa ATwa Tliaqd Tliqd2 Tvapr Psat Tsump 
9.93 21.08 2.25 2.49 c.2t 6-1. 7S) (11.5 
Thetab Htube Qdo Athetab Ahtube AuQdp 


7.718 1.297E+05 1.0Q01E+04 18.862 S.Q@9@E+@2 9.601E+05 


Data Set Number = 14 Bulk Oi1 % = Q.¢@ 


TIME: 18:20:40 
TC No: 1 Z 3 4 S 6 q 8 
Temp : 9.64 10.30 19.21 9.96 -99.99 9.60 9.57 10.20 
TC No: 9 12 1 12 13 14 1S 16 
Temp : 16.49 27.08 21.68 25.90 9.9! 27.16 18.04 22.69 
Twa ATwa Tliad Tliqd2 Tvapr Psat Tsump 
9.87 21.26 eee 2. lee 2.16 <-1.79 <-11.5 
Thatab Htube Qdp Athetab Ahtube AuQdp 


7.68S !.303E€+03 1.Q0Q@1E+04 18.874 S$.@74E+0@2 9.S77E+05 


Data Set Number = 1S S8ulk O11 2 = @.2 


TIME: 18:25:06 
TC No: 1 Ps 5 4 S 6 7 8 
Temp : 6.6 6.30 6.25 6.16 -99.99 6.00 _S.99 6.27 
TC No: 9 10 11 12 ES) 14 1S 16 
Temp : 16.55 27.13 21.72 25.96 9.99 27.21 18.11 22.75 
Twa ATwa Tliad Tliad2 Tvapr Psat Tsump 
Gale 21 11 2.24 2.20 cocd «67TtL74 «60M NNG 
Thetab Htube Qdo Athetab Ahtube AuQdp 


3.893 1.267E+035 4.931E+@3 18.889 S.@62E+@2 Y9.S6I1E+O3 — 


Data Set Number = 16 S8ulk O11 % = Q.2 


TIME: 18:25:41] 
TC No: | Z 3 4 S 6 ri 8 
Temp : 6.@2 6.37 Baal 6.22 7-99.99 S.98 S.99 6.32 
TC No: 9 10 V1 l2 (eee 14 1S 16 
Temp : 16.98 27.16 21.75 25°99" Ong! 27.28 lees 22v772 
Twa ATwa Tliad Tliad2 Tvapr Psat Tsump 
6. 1S ee Zio 4 Pa Pa YS, ae.2?7 71.69 -11.6 
Thetab Htube Qdo Athetab Ahtubs AuQdp 
3.881 .271&+03 4.9355€+03 18.876 S.@69&+02 9.S567E+03 
Data Set Number = !17 Bulk Oil % = Q.90 
TIME: 18:30:07 
TC No: ] = 3 4 S 6 7 8 
Temp : 4.46 4.65 4.63 4.56 -39.99 4.42 4.43 4.64 
TC No: 9 1 11 iz is 14 1S 16 
Temp : 16.7S 27.5@ 22.900 926731 (Ova 27 Geer oe co. oe 
Twa ATwa Tliad Tliqd2 Tvaopr Psat Tsumo 
4-95. eles 2158 mee 4 eset ~1.69 -!127 
Thetab Htube Qdp Athetab Ahtube AuQdp 


2.655 1.2566+95 2, 3586605 sel o3 eo. ooe Oe 7 ee 


Data Set Number = 18 @Qulk O11 % = 0.92 
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TIME: 18:350:Se 


TC No: | iy 3 4 S 6 i 8 
Temp : 4,49 4.65 4.64 shi e eis aes |S. 4,44 4.44 4.64 
TC No: = 1Q tt J* 1S 14 tS 16 


Temo : 6.75 27.48 21.98 <26.30 10.11 27.57 18.53 23.905 
Twa ATwa Tliad Tliqd2 Tvapr Psat Tsump 
4.54 21.38 E.a0 2.24 7S - ed PE =) > ae 

Thetab Htube Qdp Athetab Ahtube AuQdp 
2.c6e 3 61.259E+0@353 2.847E+03 19.104 S§.Q067E+02 9.681E+03 


Oata Set Number = 19 Bulk O11 % = Q.Q 


TIME: 18:35:22 
TG Ne: | Pa 3 4 = 6 7 8 
Temp : Ree) 3.46 3.46 ee. )-o4.99 S505 3.34 3.46 
TC No: | 1Q | Zz 13 14 1S 16 
Temp : (6968 27.38.921.91) <bal9 0.12 27.465 18.27 22.93 
Twa ATwa Tliqd Tliqd2 Tvapr Psat Tsump 
3.40 21.50 ARPES 2.20 2.20 1.74 “11.8 
Thetab Htube Qdp Athetab Ahtube AuQdp 


1.176 1.3Q066+03 1.S36E+03 19.079 S.@60E+@2 9.654E+03 


Data Set Number = 20 Bulk O11 % = Q.2 


TIME: 18:35:42 

TC No: 1 2 3 4 S 6 7 8 
Temp : 3.42 3.48 3.49 5.46 5-99-99. 3.57 3.36 3.5 
TC No: ) 10 1 Z 13 14 is 16 


Temp : 16.70 27.38 21.91 26.19 110.09 27.46 18.27 22.95 
Twa ATwa Tliad Tliqad2 Tvapr Psat Tsump 
S245. Z21sse 2.50 eee Cee We ieee 

Thetab Htube Qdp Athetab Ahtube AuQdp 
1.165 1.319&+03 ¢.S37E+03 19.034 S$.@83E+02 9.676E+03 


Data Set Number = Zt Bulk O11 % = Q.Q2 


TIME: 18:49:25 

TC No: 1 Z 5 4 S 6 7 8 
Temp : 2.68 2.68 2.69 2.67 -99.99 2.64 2.65 Zea 
TC No: 9 1@ = a Alye 13 14 1S 16 


Temp : 16.66 27.28 21.83 26.10 10.16 27.37 (t8.22 22.88 
Twa ATwa Tliqd Tltqad2 Tvapr Psat Tsump 
2.6/7 21.25 Faeyr Bt Pier | 2.25 71.73 “11.9 
Thetab Htube Qdp Athetab Ahtube AuQdp 
.444 1.4046€+03 6.232E+02 19.020 §.@446€+02 9.595E+03 


Data Set Number = 22 Bulk O11 % = Q.2 


TIME: 18:41:07 
TG No: | e 4 4 S 6 ri 8 
Temp : Saree a eal Pare b' 2. (Oe aoadS ecoy ae CR ie 
EG No. g 1Q 11 te 13 14 tS 16 
Temp : 16.67 27.30 ¢1.84 26.11 18.07 27.38 18.22 22.90 
Twa ATwa Tliad Tliqad2 Tvapr Psat Tsump 
feos cl. cd Zed Grae SecO Hl OY 1429 
Thetab Htube Qdp Athetab Ahtube AuQdp 


.439 1.415E+03 6.2166€+22 (8.985 S.@31E+92 9.SSIE+03 
NOTE: 22 data runs wer# stored in file DAT@496042 


a 


APPENDIX D. PROGRAM SETUP72 


Program SETUP72 is listed on the following pages. The program enables the user 
to: | 
. Monitor coolant sump temperature. 
. Monitor liquid pool average temperature. 


. Monitor all thermocouple channel output temperatures. 


HR WwW KR = 


. Monitor voltage, current, and resulting power supplied to the upper tube heater 
(main heater) as well as the resistance of the heater. 


5. Monitor the voltage, current, and resulting power supplied to the lower tube heater 
(auxiliary heater) as well as the resistance of the heater. 


Program SETUP72 is written in Hewlett-Packard Basic 5.0 for the HP 9300 series 


computer. 
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w @ 63 -— 


PROGRAM: SETUP 


NATE s AIC macs 
MATE: AUGUST 3,199) 


PROGRAMMER: 


ieuecteclGl eis 


oO ete oes. eeNNTS Ake GAN 22) 1 SSE 
Cote Ge Gl. ) 


Soro ogse oS i) 25757 24269 .-75 7545-95285, 
2. §8192E+!13 


DATA 3.34979+14 


iste eh 


Ger se yeveS ECG 27 


Bet ere so 3 
PRINT 

PRINT 

PRINT USING 
PRINT USING 
PRINT USING 
PRINT USING 


-PRINT USING 


PRINT USING 
PRINT USING 
PRINT USING 
Se=- 

INPUT Ido 


"4% ,""SELECT OPTION *" 
"SX ,""QeMONITOR SUMP*** 
"SX ,""1=MONITOR LIQUIO"™* 


79925595 .9! ,-9247496S89 ,S.976egE+ 


“6X ,"““2=CHECK THERMOCOQUPLES””” 


"6X ,"“3=CHECK MAIN HEATER™** 
“SX ,*"4=eCHECK AUX HEATERS*"” 
“6X ,°"S=sEXIT PROGRAM””* 


“aX ,“*NOTE: KEY | = ESCAPE**” 


IF Ido:S THEN [da=S 
IF I[de#@ THEN SOQ 

IF Idoe! THEN 1SS 
MIF [dos2 THEN 1.73 
IF Ide#3 THEN 1925 
IF I[do#4 THEN 1925 
IF Ido#S THEN 231 


PRINT 


PRINT 


PRINT osclhe TEMPESATURE Q&S C - 


PINT 


QUTPUT 729;"AR AF!9 ALI@ VRS" 
QUTPUT 7@9:"AS SA" 


Sum=Q@ 


FOR J=#=! TO S 


ENTER 799;¢ 
Sum*Sum+E 
NEXT J 
Esve=Sum/S 


Temp=FNTvsviEave? 


PRINT USING 
Beer 

PRINT 

WAIT S 

5019, 59 


SAINT 


"4X MOO .00*: Temp 


Bete eu EMPEP ATURE UEC C> 


PRINT 


OUTPUT 799:"AR AFIG ALI7T WPS” 


Sum=@d 

FOR [at TO 2 
OUTPUT =99:~ 
ENTER “99; 


Sum]Sumte 


somata a 
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ise 
165 
ee 
168 
= 
Pee 
tees 
{22a 
ve 
ae 
LES 
athe: 
ye] 
129 
19! 
192 
135 
194 
25 
196 
pay 
i33 
rag 
139 
Pal 
194! 
Pals: 
195 
Va? 
199g 
'gg 
220 
ocr 
200 
Soo 
294 
295 
293 
21@ 
Zia 
212 
Ra) 
aby. 
=t3 
ate 
29 
aa 
a2 
=o 4 
2s 
<o2 
aa o/ 
see 
aes 
sco 
oon 
79 


= at te 


eo 


i 
24 


Mew? f 


a 


EavezSum/ 2 


2 ee oe —~ ¢ 


wt wt mt 8 ue 


SEEP 
Jas oat 
GOTO 255 


SS INT 

PEYNT “CHANNEL TEMPCSATURE DES ©” 
QUTPUT 7@9;"4R 2°99 AL!IQ VARS” 
FOR fst TO 29 

QUTOUT 7Q99;"AS SA” 

Sum=Q 

FOR Js! TOS 

ENTER 799;E 

Sum=Sum+f 

NEXT J 

EasvesSua/S 

Temp=FNTvav(Eave) 

PEINT TAB(3):1:TABC IS): Temp 
NEXT f 

SEEP 

WAIT S 


GOTO 173 


SOINT 

OUTPUT 7939;°AR AF2Z9 AL22 VAS" 
FOR T=! TO 3 

COTE UT Oa seas ote 

Sum=9 

FOR J=! TO S 


ENTER 799;£ 

Sum=Sum+e 

NEXT J 

I£ [=t THEN Volt=Sum/S 

IF f=2 ANO !do=s3 THEN 

PRINT "MAKE SURE VOLTAGE 90OX I[S SET TO MAIN HEATERS" 
Ama=Sum/S 

ENO [F 

IF [#3 AND [do=#4d THEN 
POINT “MAME SUPE VOLTAGE 80X [S SET TO AUX HEATERS” 

Amp =Sun/S 

ENO [F 

NET [ 

Ams =49S(Amo*!.9182) 

Volt=ABS(Voleeis) 

Power =Volt*Amp 

Resistencestolt /4np 

PSInT 

gece 

CRINT “VOLTAGESU) CURRENT!A! RESISTENCE( chms) PQWES(W)" 
SQIntT 

POINT USING “1% SéMOQ00.00 AX d":Volt Amp Resistence Power 
WAIT § 


- 


660790 9s 

BEEP 

oe Le 

PRINT “TRAT S22 02 ee sane 
N18 


80 


DEE ENT weve) 
PAM (Ral RYT) 
~~) 2d i a 
T=C(Q} 


FOR Ia! TO 7 

TeT#+C( 1 orl 

NEXT I 

Ta=T4+9 .G26897E-24T 942.761! 
RETURN T 

FNEND 


= 


= 


c 
— 


ae Soe 


i 


cm 
co 
«Oo 


2oce=o0 


APPENDIX E. PROGRAM DRP72 


The data acquisition and reduction program DRP72 is listed on the following pages. 
Program DRP72 is written in Hewlett-Packard Basic 5.0 for the HP 9300 series com- 


puter. 


82 


ia)  eelitoG NAME « mb Oise 
ry * . cm to OOS 00 tum ® wt Oe . 


eo ' Date; mageyu ¢, 1362 

29 86! BEUTSED VESSTON Of ORPETI FOR TNO TURE Data 

uO ! SEVNTSEN BY Lannse Lake 

$2 com “idor Uda 

S@ PRINTER fs ! 

79 CALL Select 

22 [INPUT “WANT TO SELECT SMOTHER OPTION (12Y O=2N)7" Tgal 
92 If lsele} THEN GOTO 79 

192 DEEcS 

119 PEE 

129 POINTER IS ! 

132 POINT “DATA COLLECTION/SESROCESSING COMPLETED” 
14@Q@ ENO 


1$9 SUB Main 

162 Done, leg, (oo 

ie oe COM (Cel CCT) Ical 

13@ ethic wlt, Joe Ot og ae Kou 
19@ OiMpemt Cooo moc oe, Jl acls }(O2sC) Ss eotat 1S) Joes) Lacngeecual |gem cua.) , 
E6¢!9) Tnsc4dCis} 

220 = OATA @.19@86091 ,.25727.94369 27 75734S.9295 ,7992559S.31 

21 DATA -9247486599 ,§. 978995411 -2.561925+15 3. 94079E414 

229 READ Cle) 

239 ! DATA “Smocth” ,“High Flux” ,“Thermoexel-&" ,* Thermoexel-HE” 
249 DATA Smooth Mish Flux ,Turbe-B High Flux Med,Turbe-§ Med 
239 READ Tns(*) 

259 PRINTER [S 7Q! 

279 gfeo 

299 TF [de=#=4 THEN PRINTERS [S } 

23@ TE Tdo#d THEN SOTO 29729 

39@ ' INPUT "ENTER MONTH, OATE ANDO TIME (MM: O0:HH:4M:SS)" Datas 
SIO=| SUTPUT 70S: TOosDates 

329 !' OUTPUT 709;°TD" 

33Q@ ! ENTER 799;Dates 


340 POINT 

=S0 ! PRINT * Manth, Date and Time :";:Dates 
260 PRINT * Oste :" DATES( TIMEDATE) 

372 PRINT 


329 CQINT USING “19% ,°"NOTE: Program name : O8P72""" 
320 BEES 

AQQ INPUT “ENTES DISK NUMBER” Dn 

11Q PRINT USING “ISX ,""“Ossk number = “" 22":Qn 

42 2ecp 

4350 INPUT “ENTER INSUT MODE (@=50SdA 1 2F ILE)” Im 


44@ seas 

ao PPT CR 2eTJEE OPESAI LON ENTER SOR 2 2) Sumn| tu: 
LSB, Bee? 

08st) INPUT “SELECT HEATING MODE (@-ELEC; !=WATER?)” [hm 
pe Beer 


499 INPUT “ENTER THESMOCOUPLE TYPE (Q=NEW 1=OL0)" [cal 
S992 toeiim= og TEN 


519 BEEP 

See) Eerste Me KHOR Te SAW DATA EELS” O02 Fvies 
cle Beis ING Se Mews ois mane: ~° 14A°:02. files 
S4Q S32 221229 

B=U CREATE QOAT re eee S22 | 

See oer les TO Sle): les 

Boe! 

S60) DUMMY FILS UNTIL Sen “KNOWN 
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IMM GY - Bw 


Qeaaqegdcgeagahth eQe d & «© 


IA NAnnnmna ma mMmonim mM 
9 «id 


a 


990 

1009 
121 
1Q@29 
1@32 
1949 
19Sa 
_18S9 
1979 
1@8@ 


1999 
11QQ 
1!1Q 
1129 
1129 
114@ 
11SQ 
Ha) 
1179 


M1 §.let= OUMMY-~ 
CREATE SDAT OI Fit 
ASSIGN @&:let TO 9 
QUTEUT OF rle!;Qates 
Te Thm=Q THEN 

DEED 


ea? top Yom? 


INPUT “ENTER NUMSES OF @SRECTIVE 6S (OSSSRAUCT) ie ce 


23.5 | 
| 


Te 
Fries 


mm wa * 


PRINT USING “TEX (> No 2ersectivs (osee-et | 

ENO [fe 

IF I[dtc#!l THEN 

PECP 

INPUT “ENTER DEFECTIVE TC LOCATION (1-9 >" Ldtcl 

PRINT USING "16X%,""TC is defective at location *”" OO"sLdtc! 
Ldtcl=d0 

ENO IF 

IF I[dtc=2 THEN 

gece 

INPUT “ENTER DEFECTIVE TC LOCATIONS (1-9)" Ldtel ,Ldte2 
PRINT USING “I16X%,""TC are defective at locations °° 00,4X OO";sLdtc! ,Ldtc2 
ENO IF 

If [dter2 THEN 


Bree ; 
PRINTER IS J 
CEEP 


PRINT “INVALICQ ENTRY" 

PRINTER I[S 70! 

GOTO 649 

ENO IF 

ENO IF 

CUTPUT SFilel;Ldte!t -Ldtec 

IF Hwmntu=! THEN GOTO !12Q 

INPUT “ENTER NUMBER OF DEFECTIVE AUX TCS (@=DEFAULT)* ,Ardtc 
IF Ardte=Q THEN 

Aldtci=@ 

Aldt<2=@ 

POINT USING “"I16X,"°"No defective AUX TCs exist”*" 

ENO IF 

IF Aidtce!l THEN 

BcocPp 

INPUT “ENTERS OEFECTIVYE TC LOCATION (9-16)" Aldtc! 

PRINT USING “16X,""TC is gdafective ateilecsttonme uo -Aldce! 
Aldtcl=92 

ENO [fF 

IF Ardtc#2 THEN 

geEeD 

IMPUT "ENTER OEFECTIVE TC LOCATIONS ©(S="6) Saiatet ardtc. 
PRINT USING "I16X,""TC sre defective at locations ** 00 4x OD" :Aldte! Aldte 


Exp fe 

IF Aardt2:2 THEN 
Seep 

POTNTES rs } 
pccep 


SOL Sale Oo ENE yas 
ile UN See 10s) Bi 

Bea) el 

eiap 19S 


84 


meee QUTPUT SFila!:Aldtc! Aldsts 
Beet! Ima! spt:icn 
170A ¢lte 


> wt ‘me op tat om 


12!9 gEeco 

1279 =[NPUT “GIVE THE NAME OF THE EXISTING DATA FILE* O2_files 

Meeomeee iNT USING “184% ,.""Old File name: °" !4A°;:Do_Filss 

1240 ASSIGN OF:les TO O2_Ffilas 

r2S9 ENTES QF. lelsNren 

1262 ENTER OFile2;Dolds 

1279 «PRINT USING "16X,"°"This data set taken on: *" ,144";Colds 

1230 ENTER SFilec:Ldte! Ldtel Altde!l Altde2 

129Q@ IF Ldtc!i>9 OR Ldte2>Q THEN 

1300 PRINT USING "I1G6X ,""Thermoccuales were defective at Locations: ”° 2630 44)"; 
was! ,.dtsz 

Pee SNO [& 

1329 IF Huwmntu=! THEN SOTO 1359 

1320 IF Aldtc!>9 OR Aldte2:@ THEN 

1740 PRINT USING “!16X,""AUX Thermocouples were defective at locations:”" 2450/4 
meee dte! Aldte2 


~*~ 
Cd 


1350 END IF 
1360 ENTER @File2;: It? 
1270 ENO IF 


1392Q Idts=0 

1399 IF Ldtc!l>@ THEN [dtc=I[dtc+]l 

1400 [F Ldtc2>@ THEN [dte=I[ dict! 

1410 IF Huwmnty#! THEN SOTO 1449 

1429 IF Aldtc!>@ THEN ArdtcsAidtc+! 

1439 [F Aldte2>@ THEN Aidtc=Aidtc+! 

1449! ITF [m=@ AND [hmo@!] THEN !$95 

145Q@ SEEP 

1460 INPUT “WANT TO CREATE A SLOT FILE? (QeN 1#Y¥)" [plot 
1470 [IF Iplot=! THEN 

149Q@ SEES 

149Q@ INPUT “SIVE NAME FOR PLOT FILE” 9 Files 

1$Q@0 . CREATE SDAT 9° _f:les,4 

1S$19 ASSIGN @Plot TO P_filss 

1$29 END IF 

1S29 [F Ihmel THEN 

1$4Q@ SEES 

1$59 INPUT "WANT TO CREATE Uo FILE? (9=N,1#Y)" [uf 
1$6Q@ IF fufe! THEN 

1$7@ BEEP 

1$80 INPUT “ENTER Uo FILE NAME” ,Ufiles 

1$99 CREATE BDAT Ufiles 4 

19@@ ASSIGN 9UftlLe TO Ufiles 

1610 END [F 

1$29 S8EEP 

1629 INPUT “WANT TO CREATE Re FILE? (Q@=N 12Y)" Ire 
'€4Q IF [re=! THEN 

[soo GECP 

166Q [INPUT "“ENTES Re FILE NAME” Refiles 

1679 CREATE SDAT Pefiles 10 
1$3Q@ ASSIGN MRefile TO Sefiles 
f€s@ ENO fF 

'79@ ENC [fF 

17!1Q@ O8INTEeES Is ! 

1729 IF Im=Q@ THEN 

1739 gece 

1749 PRINT USING “4¥ ""Selact tube aumber"”” 
(760 [F Thm=@ THEN 


» 
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Enya) 


1779 PRINT USING “SX ,""1 Smocth 4 inch Cu (Press/Siide)*"" 
1'792@ PSEINT USING “SX ,""2 Soft Soldar 4 inch Cu~”” 

1799 SPRINT USING “S¥ ,“"3S Soft Selder 4 inch HIGH FLUK"*” 

1999 SRINT USING “SX .“"41 Wieland Hard 9 ineh""" 

1919 SSINT YSINE “SX ,°"S HIGH FLUX 9 ineh”**” 

182@ PRINT USING “64% ,""S GEWA-" 4@ Fins/in"“*" 

'93@ PSINT USING “SM ““7 SEWA-K 2S Fins/in””*” 

1949 PRINT USING “Sx ,""2 GEWA-T 19 Fins/in"*" 

19S9 SBINT USING “Sx ,""92 GEWA-T OR SEWA-TY 26 Fins/:n*”" 

1296Q@ PSINT USING “SX ,""!9 THESMOENCEL-E°"* 

1979 POINT USING “BX, *"!1 THERMOEXCE! -HE""”" 

1999 PRINT USING “6X ,"“"“!2 TURBO-8""" 

1899Q@ PRINT USING “SX ,""13 GEWA-K 19 Fins/in*”*" 

1999 ELSE 

1910 PRINT USING "6X ,""9 Smooth tube”"" 

1929 SORINT USING “6X ,"°"! High Flux””” 

193@ PRINT USING “SX ,""Z2 Turbo-8"*”"” 

1949 PRINT USING “GX ,°"3 High Flux Mod"”” 

195@ RINT USING “&X,""4 Turboe-8 Mod”"”* 

19SQ@ ENO [CF 

1279 INPUT Ie 

198Q@ OUTPUT SFilsl:Itt 

1980 ENO IF : 

2@0@ PRINTES [S$ 791 

2919 [IF [tt<1@ THEN PRINT USING “16X%,""*Tube Number: ve 3} ee 
2920 IF I[t$>9 THEN PRINT USING “16X,°°Tube Number: ~* 90> : Bee 
2929 IF Ihm=l THEN PRINT USING “I16X,*"Tube Type: "" ISA" sTnS(Itt) 
22490 SEEP 

2959 INPUT “ENTER OUTPUT VERSICN (Q@*LONG ,! =SHORT ,2=NONE)" , Lav 
2-950 SEEPS 

2979 INPUT “SELECT (Q@=LIQ ,12VAP 22(LIQ+HUAP /2 >" Llav 

29291 

2990' OLMENSI&NS FO TESTED TUBES 

2109! ELECTRIC HEATED MODE 

2110 Ol Diameter at thermocoup!2 pasitions 

212Q@ OATA .QTIITI12ZS, .Q@rt112S, .@ritt2S,.@129S40, .912446 ,.9129548, .010096S 
2-130 DATA .919096S,.01157,.01157,.01157,.@11S7,.91157, .3100965 
2140 READ Olale) 
2159 OleOlac ltt) 

216Q! 

2170! O22Oiameter of test section ta the base of fins 

21989@ OATA .015975,.01597S, .01S97S,.@1S824 ,.@1S287S, .Q@1598274, .a1270 
2190 OATA .9127,.0138,.9139,.9138,.0138,.0138,.0127 

~-@Q@ PREAD Olas) 

221Q! 

2229! Oizlnside diameter cf unenhanced ends 

me 2 OATA .O127 ,.01L7, .O1f?..01S2 ,Ole7 (Ol se ee see ae 
~=4@ OATA .O0119,.0119 ,.0118 .O19S Olea el iis 

2250 PEAD Dial) 

eooun 

2274! DosQutside diameter of unenhanced ands 

w~od2 OATA .919397S,.@1S97S, .@1ISS7S.. GI1SS24. GI1Se7S . Clsset Ofer. a 
~22Q «OATA .01331 ,.31251 ,.91331,.91353! ,.@1S8 ,.9127 

239@ SEAO Oscals? 

22 (i i 

Liz! LeLangth of anhanced surface 

~~20 OATA 1918 ,.1916,.!9'!S .. 1916 |. SOc eee cee Oe cc See oo eee 
rE ee 

2349 PESO Lale) 


PRINT USt Noe Se 


(3 


smacth 4 inch Ref""" 
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2269! 
2569! Luslencth of unenhanced surface at the ends 

eo eATA .@2S4,. 925d, .@254,.925¢,.O7S2 ,.Q@762 ,.9752 ,.@752 ,.97E2 , .@7S2,.0752 , .07 
2229 

2192!) “cu=Thermal Canductivity of tube 

241@ DATA 399 54d 24d 45 544 45 5424 348 399 3598 398 599 399 344 

eae" READ Kcusl*)} 

2450 YS Thm=! THEN 

2440! 

2450! Oata statements for water heating mode 

240! 

camo DATA 9.91597S 9.915875 9.9169 9.9158 9.0169 ,2,9,2,9,@ 

249@ READ Desle) 

249Q@ DATA 0.9127 9.9127 9.9145 0.9127 32.0145 2 ,2,9,9,0 

“S@@ READ Diasle) 

Sao Dara 9.215975 ,9.915975 9.9169 9.915875 ,9.9169 9,.9,9,0.9 

2620 READ Doal*? 

2520 SATA 9.3048 2.3048 9.52948 9.3048 2.5048 2,9 ,9,9,9 

254@ READ Lalo) 

2559 OATA 9.0294 9.90294 9.9254 9.0254 2.9254 2 2,9 2,9 

25S@ READ Lust} 

2578 DATA 399 ,4S ,398 ,45 ,399 0,9 ,0,9 ,2 

283@ READ Keual >) 

esse ENO IF 
280@ D2-O28( 5t2) 
2512 ODinwOtac fet? 
2620 De=Doa(lt!? 
Geeo Lelatrt:> 
2540 Lueslus( Itt) 

2S2@ KeusKeuallt$?} 

25SQ@ Xn=.9 

2679 fre.3 

2580 IF t¢=@ THEN Cf=1.72¢+9 

2690 IF [¢t¢>2 THEN Cf=3.7037E+19 

Page A=PT*(De*2-0'"23/4 

2719 O=Pl Do 

2720 IF Imm! THEN 

2739 S8€¢P 

2749 ‘<INPUT “TUBE INITIATION MCOE. (1*HOT WATER ,2=STEAM,3=COLD WATER)” [tim 

275@ fF [tim=l THEN PRINT USING "16X,""“Tube Initiate: Hot Water”"" 

2760 IF Ititme2 THEN SSInT YSING “!16X,""Tube Inittate: Steam”’"” 

2770 «#4IF Itim=35 THEN SRINT USING “I6X,""Tube Initrate: Cold Water’”” 

2798 INPUT “TEMP VEL MODE: (Q@=T-CONST ,V-ODEC;1=T-OEC .V-CONST; 2=T-INC ,V-CONST)” , 
oP 

2799) «6Tf L[tv=9 THEN ORINT USING “IEX ,""Temp/Vel Made: Canstant/Decreasing’””” 
290@ IF Itv=! THEN PRINT USING “ISX ,""“Temo/Vel Mode: Decrsasing/Constant”*” 
2910 IF Itv=2 THEN SRINT USING “!GX ,*"Temp/Vel Made: Increasing/Constant**" 
2922 <INPUT "WANT TO RUN WILSON PLOT? (T=Y ,Q9N)" Twirl 

2929 {© I[hm=! ANO [wil#=@ THEN 

224@ IF [$t=@ THEN Ci=.9352 

@e-o) [© ftt=s! OR ft+=5 THEN Ci=.9S9 

Sogo, iF {tts OP feted THEM C2". 0625 

2979 gEES 

79899 INPUT "ENTER Cl (ORG: WH=.9032 YHF2.959 T8=.962)" C2 

Sosa CSINT USING “'GXN ,“Siedcer-Tate **" 

SeeOmereint USING “154 ,"°" Constant eee ge: | Car er 

Sailer sees 

foe ee Non eLe 


’ 
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p10 19 00 10 OO 1B 
“Min = 6.4 


o wW 
Aa Qa Ga ce tc 


SVQ FA FR TIFIED 


f 
t 
( 


Ob OF CN 
QQ & 
Qo & 


Qa 
3 
S 


2939 
3Q4Q 
3050 
2260 
3970 
e220 
sg22 
310@ 
3112 
Seg 
3139 
314Q 
oy alu, 
3150 
3179 
319 
3192 
3200 
32193 
Seco 
oo 

3240 
SM, 
zes0 
ae 

2290 
Eoco 
S5go 
33512 
33528 
2c 
334 
3550 
3560 
3379 
aE 16) 
Boo 
3400 
3419 
cA 
S459 
3449 
7459 
5462 
3479 
3490 
2499 
Boil, 
Biss] 4, 


Seec 


TE Tree! ANDO Teme! ANO Tyr l=) THEN 
TE feted THEN O18 925 

fe [Tete] OR [tetas THEN C:=.3S3 

TE Tebe? Of Teead THEN Ci =_AE2 
ASSIGN 9Filel TO « 


Cees emg ie te 

ASSIGN 2Firlecr TO OS_files 
ENTER BFrle2sNrun FeldsS dtc! Ldtceo fet 
ENO [F 

Nsub=Q 

IF !dp=4 THEN [hm=! 

IF Ihm=! THEN Nsub=9 
Ntc=é& 

Te IThm=Q THEN Nto=rQ 

J=! 

Sx 2Q 

Sy=9 

Sx2=9 

Sxy=9 


Repeat: | 


IF Im=Q@ THEN 

Otid=2.22 

Idoz2 

ON KEY 1,15 RECOVER 3129 

PEYNTER [S 1 

PRINT USING “4X ,"“SELECT OPTION"** 

PRINT USING “GX ,““Q=TAKE DATA""" 

IF Ihm=@ THEN PRINT USING “SX ,“*tsSET HEAT FLUX**" 
IF Ihm=t THEM PRINT USING “GX ,"“teSET WATES FLOW RATE*"* 
POINT USING “SX ,""2="SET Tsat*"* 

PRINT USING “6X ,”"°S"SET AUX HEAT FLUX" ** 

PRINT USING “4X ,“"“NOTE: KEY ft = ESCAPE""” 

BEES 

INPUT Ido 

IF Ide>2 THEN [do=3 

IF Ido=@ THEN S299 


190P TO SET HEAT FLUX OR FLOWMETER SETTING 
IF Ido=s!l THEN 

IF Ihm=Q@ THEN 

OUTPUT 799:"AR AF2Z@ AL?! Ves” 

BEEP 

INPUT “ENTER DESIRED Qdo* Dade 

PRINT USING "4X ,""OESTIRED Qdp ACTUAL Qdp*”” 
Err=10@9 

FOR [=i TQ 2 
OUTPUT 799:" 
Sum=9 

EQP Jiel TOS 

ENTER 7O9;E 

Sum=Sum+F& 

NEXT Ji 

IF Tat THEN ‘fol$=Sum/S 
TE [a2 THEN SmgeSumsS 
NEXT [ 

Amp aAbS(Ampef .2!'95) 


Pore*Hag4 Jo1e 25 % 
Sage siic) Geo ee oe 


aS oom 


[© ABS! Aade-Nqdo?) E-- THEN 


eo Reto: 
fC aadan Maa Tit ht 
ae 8 Nah Nel get eee tg te ot ut 


- 
we 
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cos9 
384 
sec 
BeSe 
Es79 
FSET 
asd 
e5o0 
ood 
a5-9 
eace 
3&40 
esad 
2569 
ea. 9 
Beao 
ayoped 
3729 
a 
ooo 
3730 
2740 
B259 
378 
E779! 
B98 | 
6220 
Sy 
3812 
3922 
3820! 
3249 
3950 
3962 
oa .9 
2890 
Shel 
suc 
3910 


e229 


GEEP 1999,. 
QEEo 4900 


as wt Dp 


SEES 1900,. 
e1 cc 


ee ee ww Oe 


QEecen “ta 


accep 369 _. 
gcco 7cQ.,. 
ENO re 
POINT USING “4¥ .MZ.S0E 2% .MZ.S0E":Oaqde ,Aade 
WATT 2 

GOTO 7290 

CLSeE 

geecp 

SRINT USING “4X MZ.SDE 2X MZ.30E" :Oade ,Aada 
C--=f0Q 


jes 


tJ 


302 0 


PYATT — 


510/110 | Sab eS [ 

Srp te 

SL Se 

BEEP 

TNPUT “ENTER FLOWMETER SETTING” Fms 
COTO 3190 

END IF 

ENO IF 


LOOP TO SET Tsst 
IF [do=#2 THEN 
IF Ikdt#! THEN 385@ 


BEES 

INPUT “ENTER DESIRED Tsat*™ Otld 

PRINT USING "4% ,°" OTsat ATsat Rates Ty Rate" 
Tkhdt=! 

Old!=@ 

O1d2=2 

Nn=! 

Nes*Nn MOO (tS 

Nn#Nn+! 

IF Nes! THEN 

IF Ihnm=Q@ THEN PRINT USING “4X,°" Tsat Tldt Tldz 
IF Ihnm@!t THEN PRINT USING “4X ,°" Tsat Tid! Tld2 Tv 


t Toile Taut*** 


eco 
3949 
z9CQ9 


3950 
3979 
3990 
3999 
4090 
4Q19 
4029 
4029 
494Q 
1952 
1959 
1979 
4999 
4090 
4199 


END IF 
IF [hm=Q@ THEN OUTPUT 709;"AR AFIG ALID VRS" 
IF Ihm=!t THEN OUTPUT 799;"4R AFQ ALS VARS" 


FOR f=! TO § 
TE [Thm=@ AND [>4 THEN 4248 
Sum=Q 


OUTPUT 709;"4S SA" 
FOR Ji=! TO 29 

ENTER 789;Elig 
Sum=Sum+E!:9 

NENT J: 

Eliq=Sum/2Q9 
TidsOnNTysv(Eliaq) 

TF [=! THEN Tidl=Tld 
[IF [=2 THEN TidtatTlag 
[EF fa5 THEN T.2Tld 

I© [24 THEN Teumg=Tlq 
T© fa THEN Tinlet=Tld 


89 


Ty 


Tsump 


~Tsump 


Tinle 


4:!9 TF f=6 THEN Toutetid 

4t7Q NENT IT 

4129 [LF [Thmalt THEN 

4149 OUTSUT 7@9;"AR AFQG 4L90 Ves” 
41S9 QUTPUT 799;"AS SA” 

4169 SumaQ 

4179 FOR Kke! TO 29 

419Q ENTER 7ag:F& 

4199 Sum=Sum+E 

4299 NEXT Kk 

AQ1Q EmFO7 )2ASS6 Sum/29) 

$229 ToilesEmF(73/5.96E-4 

4229 6ENO LF 

4240 Atida(Tldl+TlLd2ie.S 

4259 [LF ABS( At! d-Otld):.2 THEN 
@25Q0 IF AtlddOtld THEN 

4279 SEEP 400@,. 
4229 BEES 400Q0,. 
4229 SQEEP 4000,. 
4209 ESE 


[oe Ta SS ee a 


43\@ BESP 250 cc 
PWR Se es aye oe 
4350 BEEPS 2a0 re 


424Q@ ENO IF 

43S@ Erri=Atld-Oldl 

43EQ Oldt=#Atid 

4370 Err2=Tv-Old2 

42989 Qld2=Tyv 

439Q@ [F Tld!>1@Q@. THEN 4440 

440Q LF IhmeQ@ THEN ORINT USING “4X ,S(MO0D.00 ,2%)";Otld Tldl ,Tld2 Ty ,Tsumo 

44!Q@ [F [hm=1 ANO [dp=@ THEN SSINT USING “4X 70M00.90 2M" :Otld Tidl Tide Tv Ts 
ume ,Tinlat Toile 

4429 IT Thm=w! ANDO [dp=4 TREN PQINT USING “4X .S¢MO00.00 2X) ,3(MZ0.00 2X)" :O0tld,Tl 
d! Tid? Tv ,Tsume ,Tinlet Toile, Tout 

4429 WAIT 2 ; 

4449 SOTO 3390 

44S@ ELSE 

4460 fF ABS(AtlLd-Otld)>.1 THEN 

437Q@ [F Atld>Otld THEN 

4499 BESS 3000,.2 

449Q@ SEES 3000, .2 

4502 ELSE 

4S1Q SEES 900... 
4529 BEES 9QQ,. 
4$2@ ENO [F 
4949 Err! 24tld-Oldl 

4SSQ Old!=Atld 

4669 Errl=Tv-O!d2 

4S7@ Qld2=Tv 

1420 [fF [hm=@ THEN PRINT USING “4X .S(M000.00 2X ":Otld,Tld! ,Tld2,Tv ,Tsume 

4599 IF {fhm=l THEN PRINT WSING “4¥ S(M0D.00 2%) S¢M20.900 1X)°sOtld Tlal flac Fe 
,tsumo ,Tinlet forls,Tout 

1$98 WALT 2 

4619 GOTO 3939 

1629 ELSE 

1659 S€=&P 

4G6dQ Ero! =4+1qg-Ol1e4] 

46S9 Oldt=4tlad 

YEO -Erelafs-Old2 


16 (Gee esate 


MN tJ 


9() 





Sete THEN PSTN) USING “4x S(MO00.0D 2% >"*;O8ld, 
§£90 [2 heel THEN SSINT USING “ay 9¢M00.00 2M)" ;Ob!ldT 
mise te fcut 

4I7@Q WAIT 2 

719° 0 6S6QTO 79ag9 

a7o9 ENO TE 

$3720 EMD IF 

1749 EMO TF 

eeoo | 

47580! LOOP TO SET SUX HEAT FLUX 

oo tee ido=3 TREN 

4720 IF [hm=Q@ THEN 

479Q@ PGrINT * SET VOLT 90” TO aux" 

1999 OUTPUT 799:”"AR AFLG ALZZ VRS" 

49!@ SceEP 

4829 INPUT "ENTER DESIRED AuQae” Ouxadp 

4920 PRINT USING “2x ,“"DESTRED AuxOdp ACTUAL AuxQdo""” 
4849 Err=1900 

4g9s@ FOR [a1 TO 3 

4869 OUTPUT 709;"AS SA” 

4270 Sums 

4880 FOR Ji=! TOS 

4a99q@ ENTER 709;£ 

499@ Sum=Sum+E 

4919 MEXT Ji 

4920 IF [=t THEN VWolt=Sum/S 

492Q IF [23 THEN Amp=Sum/S 

4949 NEXT I 

4959 Ame=ABS(Ampe! . 2192 > 

4960 WVolt=ABS( Volt +25) 

4970 Auaqdp=VoltsAmo/(PtsO2*L) 

4999 [F 48S( Auxqde-Ouxagdp )tErr THEN 

499Q@ [TF Auxqdo>Quxadp THEN 

SQG9 SEEP 4000,. 
S919 B8EEP 4QcQ,. 
$920 BEEP 4000,. 
SQ@30 ELSE 

$Q@40 Q9EEP 252,. 
S9S@ QECP 2SQ,. 
$959 ECP 2S52,. 
$0790 NO IF 
€08Q ORINT USING “4X .MZ.30E ,cxX .MZ.30E" ;Ouxqde ,Auxadp 
S$Q@9Q WAIT 2 

S1@2@ GOTO 4850 

S'1Q@ ELSE 

6129 BEER 

S!'3Q@ PRINT USING "4% MZ.250E 2X .MZ.3DE" :Oux«qdo AuW«qds 
S149 Err =62Q 

S$1SQ0 WAIT 2 

$169 SoaTa 4esaQ 

S!79 ENO IF 

$19Q@ SOTO 3190 

$!99 NO [F 

6290 eNO [F 

S219! ERPOR TRAP FOP Ido QUT IF BOUNDS 

Srecemie -ldays THEN 


~~? tm We 


SlzQ EP 


S24Q@ GOT? Fea 


S250 §NO [F 
62s! 


i363 645 


2 63 83 
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i | 
Id! yee OR, ,)2ump 
-* . 
di [lace isemo ti 


al 
‘te 


et 


TAKE DATA [© Imag LOCP 

Te Cholzt THEN $529 

geco 

TNPUT “ENTER SULK OIL 2%" Ses 

Ihol=t 

[TE Thm=Q THEN OUTPENT F99;"AR AFOQ AL!ID VES" 
TO fhmet THEN DOUTEYT FO9;"AP sea ALS VES” 
IF Ihm=9 THEN N¢s=29 

COR fet TO Nteo 

OUTPUT 708:"AS SA” 

Sums 

FOR Jizt TO 29 

ENTES 7Q8;€ 

Sum=Sum+E 

TS [=(t7-Nsub) OP [2=(19-Nsub) THEN Ett Ji-t =& 
NEXT Ji 

“dl=@ 

IF [#(t7-Nsub} OR [#(1t8-Nsub) THEN 
Esve=Sum/2Q 

Sum=@. 

FOR Jk=@ TO 19 

TF SBSCEt( Sk )-Eave)<S.@E-§ THEN 
Sum*@Sumt+Et ( Sk) 

ELSE 

Kdi=akKd!+t 

ENO Tf 

NEXT Jk 

IF [=(17-Nsub) OR [=(t2-Nsub) THEN PRINT USING “4X ,°"Md!i = "" O0";Kdl 
TE “di>t@ THEN 

SE=P 

PEEP 

PRINT USING "4X ,"“"Toc much scattering in data - repest data set”"”” 
G0TO 3t72 

ENO IF 

ENO IF 

Emf(l )eSum/(29-Kdl} 

NEXT I 

TF Ihm=t THEN 

OUTPUT 729;:"AR AFO@ ALQA VRS” 

OUTPUT 7@9;"AS SA” 

Sum=Q 

FOR Kk=t TO 2@ 

ENTER 7@9;E 

Sum=Sum+E 


) NEST Kk 


nw Ww 
(iD CD tb 


Em? }eABS( Sum )/2Q 
END [fF 

IF [hm=@ THEN 
Coun=Q. 

AUTPUT 799;"AR AF29 ALIZZ VRS" 
FOR [=t TO 3 

QUTPUT 7@9;"AS SA" 
Sum=@ 

FOR J:21 TOS 

ENTER 799;E 
Sum=Sum+E 

NEXT Jr 

[© Ssoun=Q. THE? 

re fat THEN VresSum.s 
TF [=2 THEN fr=Sum/s 
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AMNMAMMNMAMNMMOMaM mM mMin 

O (0 10 WwW Ww 60 10 10 109 10 wD Ww 
~) IN & ta fs -= & 10 tO 

Ogaageoeuswdhaoua 


o tb 


( 
t 
( 


na wm 


A Gb Gab Geb GC Od 


nm 


THEN AvrsSum/s 


i] 
3 THEN AresSum/§ 
Cc 


To Momentus! THEN SOTO $a19 

IF Couns THEN 

PRINT “SHIFT VOLT SOx TQ Auy" 

Eno re 

IF Couns! THEN SOTO Sa@a 

TNPUT “TAKE AUX READINGS( !2vVES)?" Cson 
Coun*Count+Ccan 

6QTO $779 

ENO TFS 

ELSE 

IF thm=#@ THEN ENTER OFile2;:Bo0p ,ToldS EmFl*) Vr Ir Ave Air 
IF IThm=t THEN ENTER SFile2;30eg ,ToldS ,Emfl*) Ems 
ENO [fF 


CONVERT emf'S TO TEMP VOLT CURRENT 
TwaQ 

AtuyasQ 

FOR [et TO Ntc 

IF [date s@ THEN 

IF I[elLdtc!t OR [=Ldte2 THEN 
TC )e-99,99 

S0TO S202 

ENO [fF 

ENO IF 

IF Hwmantue! THEN SCTO 62238 
IF Aidte>@ THEN 

IF [=Aldte! OR I[@Aldtc2 THEN 
TCT 2-99,99 

GOTO 6390 

ENO IF 

ENO IF 

IF [t¢¢4 ANDO Thm=@ TYEN 

IF [>4 ANO [<9 THEN 

TCT 2-98.99 

GOTO S30@ 

ENC IF 

ENO IF 

TCL SEEN TvsvCEmAéCt)) 

NEXT I 

IF [¢¢<4 THEN 

SOR [=! TO 4 

IF Te=Ldtc! OR [=Ldtc2 THEN 
Twa=Twa 

erece 


TuasTwatt( tf) 

ENO [F 

NEvT ¢ 

Twazlual! 4-Tdte ) 

ELSE 

IF I[mmeal THEN SEOQ 

FOR [21 TQ 3 

IF Taldto! OR [ehdate2d THEN 
Tyaazlyg 

Clse 


Tua=lwattl =) 
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Oma OQ ow 


o) 


woman manan ain 


wawMa aN WM ee & & 
me (AFI — io wW 


QO © td 


ENO fe 

NENT fT 

TysTua’(9-[dtc! 

TE Uomnatu2l THEN SOTO ¢s§aa 
FOR [29 19 1§ 

TE fentidgte! O82 LTasldtsl THEN 
AtwazAtua 

Else 

StywaeAtuatT(.) 

ENO [fF 

MEMT f 

StusAtua/(Q-Aridétc} 

ENO IF 

TidwTl 17-Nsub > 

Tld2=T( 19-Nsub } 
TidaslTldt+Tld2 de Ss 
TveT(19-Nsub! 

IF £¢¢.3 ANO fhm=Q THEN 
Tid2=-99,99 
TeaC(TCIQ*+TCIty72 

ENO IF 

Tsume =T( 2Q@-Nsub } 

IF [hm=Q@ THEN 5722 
Tinlet=T( 1l3-Nsub) 

Tout=T! t4-Nsub) 

IF Ihm=Q@ THEN : 
SepeABs( [eet .9192) 
YoltsABS( Ue de2S 

N=VYolt Amp 

IF Hwmntus! THEN GOTO §3ee@ 
Auamp=ASS( Aine? .g1a2) 
AuvoltsA8S( Aur eis 
AuctzAuvoelt *Auamo 

ENO [IF 

IF [¢¢=9 ANO [hm=Q@ THEN 
Keuelhhoul Ty) 

ELSE 

Keu=Kocual let) 

ENO IF 


FOURTER CONOUCTION EQUATION WITH CONTACT RESISTANCE NEGLECTED 
TE Dema@ THEN Tutu -Ost06 (82/6017 1 2sr tek cue 

IF Hwmntus! THEN SOTO §912 

IF [hm=@ THEN Atw2Atw-AugeLOG( 02/01 }/(2*PL Keurl) 
IF [lqv=@ THEN Tsat=Tlds 

TE Tlavel THEN TsatatTy 

IF [lave THEN Tsat=(Tidat+tv 39. 

TE thre! THEN 

Tavg=Tinlet 

Grades? .29S5+.'94599eTavg 
Tdraa=ABSlEmf( Ts se} €4+8/0189Srad) 
TavgestTinlet<-Tdesee.§ 

TE ABS( Tavg-Tavge): .@! THEN 

Tavg?! Tavg+Tavge}*.§ 

BO0TO $2369 

EnQ fe 


Bie eM NS MNES ch hal a NS 
Ce im es 


WosP Nb ue Fav, ° 
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Bone 


TOGA CowelNCou! Tavg) 

T9990) Pru=zPNPrul Tavo} 

7190) BhowetENRhoul Tavs) 

7110) TwieTavg ; 
Bago | 

mos Computs MCOr 

TIMID Mdot ws. IBSTE-5+E ms 06 5.51 9SSE-5-Fms 09. JZQQEE-5-Fmee( | 
E-!9))) 

7159! Mdot=Mdot*(1.95ES-Tinlats(! PEG S4E-S-Tinlet *§.2508&-§ })/1.0057 
716] Kdt=9 

7!79 Q=Mdot*CoweTdrop 

719Q@ Latd=Tdrop/LOGi(Tiniet-Tsat)/(Tinlet-Tdrop-Tsat)) 
719@ Yo2rO/(Pl sQcoeLelL mtd) 

72Q9O RwaDo*LOG(O0/Oi 6D. Kou) 

T2I!@ TuzTsat+Freintd 

7229 “wamtdot/(RhowePI+O1°2/4) 

Fe) Rew@Rhow*VweDi/Muws 

7240 HiaCi*ku/DirReuw®.9*Prw*( 1/3. )9(Muwa/ENMuw( Twi) *.14 
725Q@) Jwic=Tavg-9/(PI sQoeL Hy } 

7259 IF ASS(Twi-Twic!}>.9@!1 THEM 

7270 TwinmlTwitTwicds.S 

72930 SOTO 7240 

7290 ENO IF 

7309 TwizlTwitTwicd*.S 

7310 Howl /(t/Uae-O9/10t eHi -Rw? 

7229 ENO IF 

7329 «60NO IF 

7340 IF Ihm=! THEN 

7350 Thetsb=0/(HeePl sOset) 

7360 TweTsat+Thetab 

737@ ELSE 

7329 Thetab=Tu-Tsat 

739! [F Humntu#! THEN SOTO 7400 

7299 Athetab=Atu-Tsat 

7499 «#8ENC LF 

7410 [LF Thetsb“@ THEN 

7429 geese 

7430 (<INPUT “TWALL“.TSAT (Q@=COMNTINUE, !*END)" Lev 
7449 IF [av=@ THEN GOTO 3139 

74S@ IF Levelt THEN 9930 

74E@ ENO fF 

747@ IF Humntu#! THEN SOTO 754 

749Q «6fF Athetab<@ THEN 

7499 geEeP 

7SQ09 [INPUT "AUX TWALL“TSAT (9=CONTINUE, !*ENO?}" Arey 
7S!Q TF AiavaQ THEN SOTO 3159 

7529 IF Arevelt THEN 9959 

TS7Q ENO [IF 

7S4Q! 

7550! COMPUTE VYERBTOUS SRNPERTIES 

TSEQ Teilma(TutTsat ie. 

7S7T9 Bho=FNRhol( TFilm? 

7S58Q MuzPNMul TFilm) 

7599 WH=PNIK OTF i lm) 

7TEQAQ C§emBNncCatTFilim) 

TS!19 QeatasPNBeta(TFilm) 

TELTD UF a=aENHFo( Teat } 

T5529 flr =Mu. Pho 

7649 Alohas¥ / (Aho eCs : 


MuwasrNMuws Tag) 
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.25698E-7-Ems*4.51997 
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QQ 00Q 0 8G & 


oJ 
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Recker], 
7949! 
7250) 
t2a0 
1208 
1233 
7320 
3002 
8919 
3029 
fi) 
9240 
S9e¢ 
S960 
3070 
Soe 
e323) 
8120 
9118 
SB 
218 
9149 
91s¢ 
ose 
917@ 
isc 
222) 
2220 
ee 
9720 


> = = 


ee 5 


— ow 


ela ake) |) 
+ 7 ww 


G-eN:;4icha 
QagtslNGent( Taat } 


COMPUTE VARTOUS SSNFECSTIeS FOR AUX TUBE 
TO Mumnatyus] THEN SOTO 779Q 
Atf&rima(Atuttaat e.§ 
ArhkowENOhs( At iilm} 
AmusFiMulAtfilm? 
ALSENWLALSFi la) 
RenaFNCo (At Film) 
PbetastnOeta(atfilm) 

Ani szAamu/Aarho 

Aglsha=Ak /(Arhoeacs } 
Agr@Arn:i/Aalghsa 


COMPUTE NATURAL -CONVECTIVE HEAT-TRANSFER COEFFICIENT 
FOR UNENHANCED ENO(S) 

Hhacr=!1 390 

Fes(Hbarel/(KoueA)d)* SelLu 

Tanh#=FNTanh( Fe) 

Theta=ThetabeTanh/Fe 

Xx2(9.91 *BetarThetab*Do*3Z*Tanh/(FeeNis*Alpha!)*. 166667 
Yya( 1+¢ .S99/Pr 3°42 9/16 )9°48/27) 
HharesK/Doel .§*. 397 eM x/Vy )"2 

IF ABS! (Hbar-Hbarc)/Hbare)>.@@!l THEN 
Rbse=(HosetHears }¢.5 

SOTO 7932 

ENO [fF 


COMPUTE NATURAL -CONVECTIVE HEAT-TRANSFER COEFFICIENT 
FOR UNENHANCED =NO¢S) FOR AUX TUSE | 

If Yumntusl THEN SOTO 3299 

Ahkar=! 99 

Fe=(Ahbar *P/(KeueA))" .SeLu 

Atanh="NTanh( Fe) 

AthetasAthetabeAtanh/Fe ; 

Axx=(9.91 *Abet a*AthetabsDo*SeAtanh/( FesAni*Aaloha!)*.166657 
Ayy#(1+( .S59/Agr $°(9/16))*(9/27) . 
AhbsresAk/Doel .S+. 397 2Aaxx/Ayy )*2 

[IF ABS( (Ahbar-Ahtarc )/Ahbarc)>.99!1 THEN 

Ahbars( Ahtsrt+Ahtarc )*.5 

GOTO 7982 

ENO [F 


COMPUTE HEAT LOSS PATE THROUGH UNENHANCED ENQO(S) 
QL=(HbareP shou eA)" SeThetabeTanh 
Qc29-2°Q1 


AgadTeQ2eL 


COMPUTE HEAT LOSS SATE THROUGH INENHANCED ENOQ(S) OF AUX TUBE 
IF Yumntu#! THEN SOTO 93190 
4qlz/AhbareP eK cuse8)" SeAthetabeAtanh 

Age sAug-leAcl 


COMRMTE ACTUAL MEAT FLUX SND SCTE ING .eCeee Teeny 
Gaga ices 

Yeube=Qdo/Thetaao 

Gat meCeeThetaoeh ts (ieee Gane ole oma 
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gcd 
gee? 
Sec 
87392 
et 
Gace! 
S220! 
e219 
eae 


Ses 


954@ 
S2eCt 
8560! 
coro 
Q799 


ww we 


e2e 


949Q 'SRINT USING “10X,""Oata Set Number = °" 000 ,2X% ,°"Sulk Oil % 


TO Uumntyat TU 


So parle tot ata S| 


SOTO 9299 


Zt 


AhtubetAuacda /Athetab 


Acsfa2( Aco tS4theatab 


SHFo/(Augdp/(AmusHfg }e¢ 914/69 .81eArhod" SoC 1/3. d*Aar' I 


Bec JPO Time CF DATA PAE TNG 


IF Im=Q@ THOM 
ee oe7 10) 
Steers 7osstolds 
ENDeTE 


SUTee he cela 1Geee TNT ee 


Peon ro 721 
TF [leve 2 THEN 
PRINT 


4A“;J 900 ,Tolas 


@419 PRINT USING “1QX, 

op ‘ 

9429 PRINT “ 

9427Q@ IF Ihm=@: THEN 

9440 PRINT YSING “1X, 
(< aaa 

9452 PRINT USING “1X, 

Pott 9) 

9451 IF Huwmntu#! THEN 

9460 PRINT USING “19X, 
1gtt? 

$479 PRINT USING “1X, 

4),T¢1S) TO1G) 

Q49% ORINT USING “1X, 

949@ OORINT USING “!1OX, 


ld Tide ,Ty ,Psat ,Tsump 


eaaa) PRINT USING “10xX,** 


am 6 


p 


mere INT USING ~1@x% -MO0.30 ,1X MZ.30€ 1X .MZ.s0E ,1% MOO: 


=> 00.0 .5%., 1 
"“"Qata Set Number = *" 000,2X%,“°"Bulk Oil % = ** 00.9°;:J,8 


TIME: , TIMES GT IMEGATE: 


"*TC No: 1 2 3 4 S G ? 
“"Temp :*" 9C1X MOO.002*sTC1? ,TE2),TC3), TES) TCS) TOS), TE 
GOTO 9499 

PerG No: 9 12 1] ess 13 14 1S 


"*Temp :"" 90 1X MOO .OO0geyto) Fld. neti 1 123s) TCI 


Twa ATwa Thad Tiiqd2. Tvapr Psat Tsumo"”” 
SCMOC 80 1X2 [x MOO EO. 1X 2CIX MOG 00) 2x MOOD stu Ata 7 


Thetab Htube Qdp Athetab Ahtubs AuQd 


SOileee. SOe nl ne. SUE 


sThetab ,Htube ,Idp ,Athetab Ahtube ,Auqdp 


8$20 
gao9 


9°49 
nlet 
9S5Q 
gcsQ 
2279 
e630 
2539 
96a0 
9612 
9E29 
21S 


JF WwW wo -* WW 
woimaomw Mm 
7 ww dg - 


fu @c @& 


ELSE 

pac USING “19x, 
Ho*"”* 

PRINT USING “10x, 


ENO IF 

ENO [fF 

IF Iov=! THEN 

If J=t THEN 
COQIntT 

IF Ihe=Q THEN 
PRINT USING “19% 
ci ce 


= a ww Ge 


PRINT eUSING tax ° 


ENO [ff 

ENO IF 

TO [ThmeQ@ THEN 
DOINT USING “!2é 


S58 


See ING  teN 


"" SUN No 


oO a Oe Oe 


Peay O02 0e 


"* Fm wr) Tsat Tinl Tdrop Thetab Qq Uo 


4(¢20.00 ,1X%),2Z.30,1% ,90.00,1% ,3(MZ.30E ,1X)"sFms Vw ,Tsat ,Tt 


, drop ,Thetab ,Odp Uc ,Hs 


Oil% Tsat Htube Qdp Thetab""" 


EMS OTe haat HTUBE NOP THETAS”*”” 


OD (SC 4M 2 205°" s) Gon Isat Htube Ode .Tre 


eoOe St OMe DE sews, Sconisat tube Oda .T 


v7 


ENO [F 

ENO TF 

TS fm=a TREN 

QEEP 

INPUT “Ok TO STORE THISSGARANSET (127 eo=N7 2oE 
ENO TF 

T© oFel GR [malt THEN Jase 

TE Oh@t ANO Im=@ THEN 

IF IhmeQ THEN QUTSUT BF: l2l;9co ,Talas Emfoe)} Yr fe ave Ais 
TE Immat THEN QUTSUT 3F:ile1:Seq ,ToldS afi) Ems 
ENO IF 

IF Iuf#! THEN OUTPUT SUF slesUu Uo 

IF Ire=t THEN OUTPUT QRef:rle;:Fas Rew 

IF (Im#t OR Ok#!l} ANO [plot=l THEN QUTPUT OPlot;:Qde ,Tretab 
IF Im=Q THEN 

slESs 

INPUT “WILL THERE BE ANOTHER RUN (18Y ,0=N??" Go_an 
Neun= J 

TF Se_sn#Q@ THEN 93950 

IF Go_on<>@ THEN Reasat 

Gis 

If J<Neun+t THEN Repeat 

ENO IF 

IF Im=Q@ THEN 

BEEP 


PRINT USING °10X,°*NOTE: °” ,22,°° data runs wers stcced tn false "~ 


1 ,O2_ %iles 


3959 
3372 
3989 
Seca 
323) 
Sgea 
2290 
el} 
2003 
2012 
9422 
9020 
9049 
9050 
9060 
9070 
908@ 
2090 
912@ 
1G 
9120 


Sede 


9132 
9152 
9:6Q 
39179 
913Q 
919@ 
a Ve 
e299) 
S20 
Cas 


> om oe 


ga = 


tm of 


ASSIGN OFilel TO » 

OUTPUT SFils. :Neun-! 

ASSIGN @File! TO Ol_files 

ENTER 9Filel;Dates Ldts!l Ldte2 [tt 
IF Humntu#! THEN GOTO 980Q 

ENTER OF: lslsAldtsl Aldts2 

QUTPUT @F:rle2:Date|es Cate! Udgtc2 [tt 
TS Humntus!l THEN GOTO 3012 

QUTPUT OFirleZ:Aldtel ,Aldte2 

FQR fat TQ Neun-l 

I& Ihm=@ THEN 

ENTER O9Fil|el;9cp TaldS ,Emf(e) Ur [rc 
IF Humntu=! THEN SOTO 9060 

ENTER @Filet;sAavr Airc 

OUTPUT @Fil6e2;809 ,Toldd ,Emfl(e) Vr Ir 
IF Humntu#=! THEN SOTO 92099 

QUTPUT Q@File2;Avr Air 

ELSE 

ENTER 9Filel;:2cp ,Tolds Emf( +) Fms 
OUTPUT 2F:122;Goe ,ToldS Emf( +) Fas 
ENO IF 

NEXT I 

ASSIGN @Firlel TO > 

SE Oe ee eur = 


ENO [fF 

SEEP 

PRINT 

IF folot=t THEN SSINT USING “18XN “"NOTE: ** 22, "" -¥ gairs were 
gata fils °° ,1@A"; 1J=! 2 oases 


ASSIGN 3F:te2 TO - 

oo cece lst os 

Deen SEN ASS LGM oe ls ie 
[F Tres] THEN SSsicn Per: q 
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, QA" ste 


stored irl 


-I Mina 
3Qo0o 3038 O8@O @ ® 


O iv 1O 1.0 10 10 10 ta 
Oo win 


§cp ti vpati pars ta 


Stats 


CALL 
geco 

AP UPS oI 7 ’ ; Ce Jad 
INPUT “LIKE TO PLAT BATA (lay Q=N17" Ob 
re Oke! THEN CALL Pict 
SUBEND 


CURVE FITS DF SSNSCRTy FUNCTICNS 
NEE ENKouLT) 


eo ceccrocR tes 10 S08 4 


feel +c25.!S iC oO 
ances tt 2=Ty 

RETURN ¥ 

Svcne 


NEF CNM! T) 


Memon 50 Bh ecURVE FIT OF UIceowerty 


TheT4275.15 ic To kK 

MuPENP 6-4 AGSEH(IOIT. A7/TK el  GEW5 
RETURN My 

FNENO 


O&F FNEstT } 
Pagero,40e@ K CURVE FIT OF Co 
ieaieces, 1S lee ok 


Ce=.40199+! .SSQQ7E-ZFeTke! .SIAQ4E-SeTh*2-§ .E7TYSIE-1OeTk "3S 


Ce=le*!0@0 

RETURN Cp 

FNEND 

Q&F FNRho(T? 

TheT#o73.1S '¢ TQ « 
Mel-(t.9eTk/7635.9S) 'K TOR 


Po=os@oeG) 14541 4eNeCl/ 5 3+1E  41901S5eX 417 476958 9X" Self ag zs ex” 


Ro=Ro/ .962429 
RETURN Ro 

FNENO 

NES FNP-/T) 
PesENCo(T)*FNMul T}/ENKOT S 
RETURN Pr 

FNENO 

DES FNK(T) 

Ti:356Q@ K WITH T IN C 
K=.Q@71-.@Q@Q02SI «T 
RETURN K 

ENENO 

DEF FNTanh(X? 
P=aEXP(X ) 

Q=1/P 
Tanhe! Pa )/0 P49} 
PETURN Tanh 

FNENO 

OEF FNT eevé hts 
eae Ct 7) beat 
T=C(Q? 

FOR f=! TO 7 
TeT+Ce fey 


MEXT [ 

IF lcals! THEN 

T2f-G. 742292 4E- 24 T oO ODT TQATE-Z-Ts( -9, 2726991 7E-5)) 
Sse 

TaT4Q S7O9O7TE-Tepee F.7G199C-5-7T+S, JG387S3E-S) 

CuO IF 


Benet 


ao 


62 


1@4350 


1 COM /Eely/ ALI@, 103.0018) 


FNEND 

DEF ENGetalT) 

RopeFNRhe( T+. 1!) 

RomeENShol( T-.!) 

Betee-2. (RoptRom!+(Ree-Rom)/.2 

RETURN Seta 

FNENO 

DEF FNHFs(T) 

Hfgal .3741244545-To( 3. 5094361E+24+T#!1. 21651435) 
PETURN Hfs 

FNEND 

DEF FNSsat(To) 

@ TO 80 deg F CURVE FIT OF Psat 

Téel 82 Te4s7 

PageS , 945525+TFe( .15252082+TF 91. 484096 3E-5+TF eo. GISQE7IE-6)) 
Qoeda-14.7 

IF Pg+@ THEN | +ePSIE ,-ein Hg 

Psst=Pg 

ELSE 

PsatePge29.92/14.7 

ENO IF 

RETURN Psat 

FNEND 

DEF FNHsmooth(™ fon ,Isat? 

DIM ACS} ,8(S) €¢f5) O¢S) 

DATA .20525 ,. 28322 ,.5190482 , .SSS22,.799@9 ,! . 00258 
DATA .74515,.72992 ,.73129,.71225, 68472 ,.64197 
DATA .412092,.17726 ,.25142,.S490E ,.81916 1.0845 
DATA ,714@2,.72913,.725E5,.69669! ,.665867,.51889 
READ AC*) BC*} Cle) OC) 

IF Boo<6& THEN I=8ap 

IF Bop*6 THEN Je#4 

IF Sore!@ THEN eS 

IF Isat! THEN 

He weEVP (ALT 400 7 vel OGCN)) 

ELSE 

bHewEvQ( Oly 4007 sh OGCX)) 

END TF 

RETURN Hs 

ENEND 

DEF FNPoly(X) 

COM /Cely/ AC1@,1@) C10) ,B(S) Nop ,Iacrnt Ope ,Ilog I fn,ljoin,Njoin 


g xXl=x 


Poly=8(@) 

FOR T=t TO Noo 

TF Tlog=! THEN X1=LOG(X) 
Pely=Poely+Q¢ I deX1"I 

NEXT I 

IF Llog\t THEN Sely=EK9(As], } 


ee Nee c. 


ENENO 

Soe Oo) y 

BieeRC IO. S210 io 0 ) Sees ocr ayaloce 

2), 9S) M loraa. de>, lossless 
COM Muyy/ Xo 2S) yes is? i 
Peewee 10. 4 

G61 )=Q 


NEXT I 


Cec eey 


ENPUT “SELECT *O=5 (UT tatie 2 teeme ae ear a amet 


100 


wt & 


12E6O 
1@S7@ 
1@680 
1e52°c 
1@7QQ 
1az21c 
V72¢ 
19735@ 
1@74a@ 
1eeSe 
Tero? 
ieee 
1@78o0 
Hee 30 
IGEUS 
obea 
Teese 
EGE ZC 
1@84Q 
UE Se 


I@ese? 
1Ce7e 


~ ws a 


1}@eca 


role? 
nee 3C 
Pcie 
Eees 
me 
Lees 
eg oe |e 


Imelmt} 

INPUT “ENTES NUMEEP OF ¥- s SHTRS“ No > 
TO Tee! THEN 

BEEP 

INPUT "ENTES DATA SILE NAME” OD files 
Beer 


,led 


INPUT "LIKE TO EXCLUDE DATA PAIRS (12Y ,@=N)?" 

IF Tedel THEN 

BEEP 

INPUT “ENTER NUMSES OCF PATRE TO BE EXCLUDED" Iper 
END IF 

ASSIGN @File TO O_files 

ELSE 

BEEP 


INPUT “WANT TC CREATE A DATA FILE (1eY Qn)?" 


TF Yese!? THEN 

BEEP 

INPUT "SIVE A NAME FOR DATA FILE” ,O_file$ 
CREATE BOAT O_filef#,S 

ASSISN @File TO O_files 

END IF 

END IF 

BEEP 

INPUT “ENTER THE ORDER OF POLYNOMIAL” ,N 
FOR I=@ TO Neo 

Sy(I )=@ 

Sx CI =Q 

NEXT I 

IF ITed=! AND Ime! THEN 

FOe re! TO Ipe» 

ENTEP @F:le;¥,Y 

NEMT 7 

END ITF 

FOR T*#! TO No 

IF Ime! THEN 

IF Opoel THEN ENTER @File:¥ Y 
Pemeeee oe (ren ENTER ME sla: ~ 
IF Qoo#!l THEN Y=Y/X 

IF Iloge! THEN 

IF Opo#2 THEN Xt#Xx/Y 

XeLQS(X) 

Dee@go=2 THEN YeLOS(Mt) 

TF Ope<2? THEN YeLOS(v} 


ENG ate 
IF Im22 THEN 
peeo 


INPUT “ENTER NEYT Y~-Y PAIR” X%,Y 
eer wel! OU TEU Re rect 
END IF 

TE Im.s THEN 

MeO] yey 

Vy( I \ev 

ELSE 

vervoul= |) 

ed Moe SU 

END TF 

Or A@jev 


Soe ff [r Va C.uf¢ {A 4a y 
— ~} ws 


~ 
‘ 
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Yes 


t1930 gi tie 
119S@ Salt} 
11969 ©OP Jel TON 
1197] 9 

e 


7 


11990 
11990 NEYT 3 
111@Q@ OQ yar TO Ned 

TEP1@ se] see Ja! vex 

P9929 Sad J YaSael J 4SC dl) 

19!SQ NENT J 

1118£@ NEXT I 

111¢@ TE Yase! ANO I[m=2 THEN 

1!16Q@ SEER 

[1179 PRINT WSING “flv 00 ,°"° X-Y pairs were stored in File™” “Jigm Neo Seas 
11199 ENO Te 

11199 S209 =Np 

1{29@ FOR [99 TO N 

1He1@ ECL =Sy¢ 1) 

11229 FOR J=@ TQ N 

(L2Zsome Cl. J} =sxCird) 

1124@ NEXT J 

11259 NEXT I 

'925@ FOR t=@ TO N-I 

(eyo CALE Otvicet [> 

11290 CALL Subtract( I+!) 

112329 NEXT I 

11200 SCNdeCCN)/ACNN} 

t#319 FOR [#@ TO N-!I 

11329 BCN-1-<f seC(N-t-T) 

1!339 FOR JeQ@ TO I 

11340 BC N-t—f el Met-[ S-ACNHf =. Na-J eSCNAHJ } 

tt3SQ@ NEXT J 

11360 QCN-1-f }eQ(N-1-2/AON-1-2 N-1-1) 

tt37@ NEXT I 

11S89'IPRINTER IS 791 

1139Q!IPQINT Of) 

114Q@Q)IPRINTER IS 7@S 

L141 O = tarnt=9 THEN 

PIa2OSPRINTSUSING ~12X .° “EXPONENT COEFFICIENT" *” 

1143@ FOR 1=@ TON 

1144@ PRINT USING "ISX ,00 ,SX MO.70E":1 ,8¢L> 

114S@ NENT [ 

1146Q@ PRINT “ ° 
11479 PRINT USING "12% ,""“OATA POINT Xx Y Y(CALCULATED) OISCR 
epancy.*" 

114990 FOR [=! TQ No 

1149@ Ye29(9) 

11699 FOR J=! TON 

TISi@ VewvyosQ( I yexx Foe] 

f'S2Q9 NEXT J 

11659 DevyfT-Ye 

1153@ POINT USING “ISX 50.4% ,4CMO. SDE IX" SE MK CL) YyC Ll) Ye O 

11¢S@ NEXT f 

1!1G7@ ASSIGN @F:te TO > 

f1S99 SUSEND 

1163@ suo OrvideiM) 

[SOG seem fal ye A610 19) Cf Ogre tie torst 60, llea lin (yom oun 
r'g¢?g eng T= TO N 

N1G2Q AgeAl[ 4) 
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11E€3@ ©OR Jem TC N 

11842 ACT J eACT Tae 

1165@ NEXT J 

TIEER CCT wC6 1 As 

1167@ NEXT I 

11§9@ SUBEND 

1169@ SUB Subtract(K} 

meee come Caoly, ACI9 10} CCt@) BCS?) N fternt Ope ,llog Itn,lyoin ,Njioin 
1171@ FOR Tek TON 

1172@ FOR Jev-1 TON 

1173@ ACT J deACKH1 J -AC TS) 

1174@ NEXT J 

1175@ CCT eC (K-13 -CC TD 

117682 NEXT I 

1177@ SUSEND 

hvoo SUS” P lin 

ipiecoecanm /Coly/ ACT® 10) €11@* StS) .N Iocnt Cao lles, lin loin, Njoin 
118@@ COM /Xxyy/ KXx(28),YyC(25) 

11912 PRINTER IS 7@5 

11829 BEEP 

1193@ INPUT “WANT TO PLOT Uo ve Vu? Cl#Y¥ O=N)” Tuo 
1184@ IF [ue#@ THEN 

11@S@ BEEP 

11986@ INPUT “SELECT (Q=h/h@% same tube ,!*hCHF )/Alsm)* Irt 
11879 BEEP 

1198Q@ INPUT "SELECT h/t RATIO Cl#FILE ,@=COMPUTED)” ,Ihrat 
11890 IF Ihrat=@ THEN 

11900 BEEP 

1191@ INPUT “WHICH Tsst (1#€.7 Q@#-2.2)" Isat 
11920 END IF 

11922 Xmin=@ 

1194@ Xmar=#1@ 

1195@ Xetepe2 

1!96@ IF Ir¢=#@ THEN 

11972 Ymine=@ 

1199@ Ymere! 4 

1198@ Ystepe.c 

12@@@ E€Lse 

12010 Ymin=Q 

12022 Ymara!S 

12039 YstepsS 

1204@ END IF 

12@S@ ELSE 

12@S2@ Opo=?2 

12270 Ymin=@ 

12@980 Yrarel2 . 

12@90 Ystepe"35 

121@@ Xeine2 

[ltl Xma-=4 

1212@ Xstec=! 

[213@ ENO TE 

12140 [TF threrat=] THEN 

121SA Ym:n=2 

f21EQ@ Vea, st 


(9 ¢ 
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Voces PINTS [ieee !): Le ea eee oe elo roe oe 
{eC S INT ese S21 o8 oe oS 


TISAI SF e121 QO/ 6 Mman-Xmin? 

t22SO SF yetAQlivmasneYain) 

12279 SSINT “FY 9,a PO” 

1729Q FOP Vaetmin TO Xma.: STED “ste 
$2292 Mal XarlmindeSFs 

12ZQQ PRINT “SO":sM " Os MT3" 

(2Z!19 NET Na 

1ZE2Ze@ SSINT “O84 120 ,C;PU; ” 

123539 SOINT “PY SCA 9,9 SD” 

12240 FOR VaeYmin TO Ymas STES Ystep 

1250 Vel Ya-Ymaind*Sfy 

1226Q SOINT "84 O,"3¥,"¥T" 

12279 NEXT Ya 

$2320 PRINT “PA @,!1@@ TL 9 .°* 

1229Q FOS “aevmin TO <max STEP Mstep 

12499 NXe(Na-XmindeSfx 

12419 PRINT “PA*:xX," ,19@: xT” 

12429 NEXT Xa 

12420 PRINT “PA 10@,!1@@ PU PA 19@,2 PQ” 

1244@ FOR Ya=¥min TO Ymax STES Ystep 

12459 Ys(Ya-YminieSfy 

124SQ ORINT *80 PA 180," ,Y,"Y¥T” 

12479 NEXT Ya 

12498@ SfINT “PA 190,!@Q0 SU" 

1249@ PRINT “988 9,-2 SR 1.5,2° 

12520 FOR Ya=Nmin TO Xmax STES Xstec 

12519 Mel Ma-NXmindsS Px 

12520 PRINT "SA*:X,° Os" 

12530 [F fue=2 THEN PRINT “CP -2 -t;:L8"*3Na;:"* 
12543@ f& [uosl THEN PRINT “CO 1.5 -1:L8°:Xa;3"" 
12659 NEXT Xa 

125SQ@ SPRINT "SY SA QQ” 

12579 FOR YaeYnin TO Ymax STEP Ystep 
12689 [F ASS( Ya <!.E-S THEN Ya=Q 
12590 Y=(Ya-YainieSfy 

{209 ORINT “8A O,°3¥,"" 

12$!9 [F fuoed THEN PRINT “CP -4 .-.25;19"3Ya;” 
12829 TE [uo#! THEN PRINT “CP -3,-.25;3L9":Ya:** 
12639 NEXT Ya 

12940 XlabalS="Qil Psresnt” 

12$S59 IF [uo=@ THEN 

12SEQ LF let=@ THEN 

12979 YilabelS="h/ hr" 

!2$80 ELSE 

12920 YlabelS="h/hsmooth” 

1279@ END Il 

1271@ PRINT “SR 1.5,2;9U 28 S@.-19 CO” :-LEN(Nlab|el3)/2:"9:L9"sMlabel3:°” 
12728 SRINT “F844 <1! SO CP @ "“s:-LEN(YlakelS)/2°S/S;: "QL DO 1sLS"svYlabels;°” 
12739 SOINT “CP 9,0" 

1274@ €LSE 
127S9 SINT 
!27ESQ COINT " 


” 


9;522" 


P.2,20.4:PU PO -9 35;:07% 9,1sL8us89 1 ,9.S:L8q:PR -1 9.9:48 (kWim 


wow 


P 
: 


12772 SOINT "PO -1°9.9;SR 1,1.5;L927;SR 1.9,2:98 .$,.9;£9.:52 .¢,9:L9K)° 
1272Q@ SOINT “O84 42, -!@:08 '0;428329 12 =! 8usPRQ !,.S:L 8643)" 

1279M FEINT “SPQ:5Pt" 

'29@@ ENO Tc 


te} 4) fay) TaaaiA 
mst he oper or 
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an tet ey Oe os om oe 


12820 INPUT “WANT TQ PLOT DATA FROM & FILE (12) S=n 1?" OF, 
129842 Ien=@ 

12eS@ IF Obp=! THEN 

1227@ INPUT "“ENTEP THE NAME OF THE DATA FILE” C_ files 
1r2gge@! If Tuc#@ THEN 

teosgo BEEP 

PeJoceiNeUT “SELECT COMEINEAR  '=LOGCY Y!" log 

Peale! ENG Te 

12920 ASSIGN @File TOD files 

12930 BEEP 

12940 INPUT "ENTER THE BEGINNING RUN NUMBER” Md 

w20S@ SEee 

12960 INPUT “ENTER THE NUMBER OF X-Y PAIRS STORED” Neairs 
12970 If Tuo=@ AND Ihrat=#@ THEN 

12980 SEP 

12990 INPUT “ENTER DESIRED HEAT FLUX" (0 

1300@ ENO IF 

130:1@ BEEP 

13@20 PRINTER IS ! 

13@30 PRINT USING “4X ,"“"“Select a symbol:*"" 

13Q@4@ PRINT USING “4X ,°"!t Star 2 Plus sign*"” 

15050 PRINT USING “4X ,.""3 Circle 4 Square""" 

13Q@6Q PRINT USING “4x ,°"°S Rombus""" 

1307Q@ PRINT USING “4X,"°G Right-side-up triangle””” 
13082 PRINT USING “4X ,""? Up-side-down triangle”**” 

13Q@9Q INPUT Sym 

131Q0@ PRINTER I§ 7@S 

1271Q@ PRINT “PU DI” 

1312@ IF Sym=! THEN PRINT "SMe" 
13130 IF Sym=2 THEN PRINT "SM+" 
12140 IF Sym=Z THEN PRINT “SMc" 
12159 Nn#4 

13160 If [leg=! THEN Na=!} 

1217@ IF Md>t THEN 

1319@ FOR T=! TO (Md-1)} 

12192 ENTER OFile;sXa,Ya 

132@@ NEXT I 

1321@ ENC IF 

1322@ IF Ihrst=@ THEN 

i230 0] =0 

1324@ IF Ilec=! THEN O=LOG(Q) 
'32S@ ENO IF 

MoecO SOP [=1 TC Nosirs 

13272 IF Yuee@ AND Theat=@ THEN 
15290 ENTER @Frle:¥2 8!) 

1329@ Ya=x8(@) 

!33@0@ FOR Ke! TO Nn 

13510 Ya=VYa+S(k }*0°e 

15520 NEXT K 

beeoe SND Te 

1254@ IF Iue=!l OR Ihrat2=! THEN 
1ZSS@ CNTES OCi le:X3 Ya 

1ZZSQ IF Iuo=!t THEN YaeVa. '@29 
rig7@ GND IF 

12390 IF Tluc=@ AND Thre|et=s0 THEN 
{Z59@ IF floget TYUEN Yaefyvor va) 
12400 IF Ilceg=@ THEN Yar=Ol. Ya 
1241@ TF Iet=@ THEN 
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--) CF CV be bb 


AMON ew & & ee Rw Re 


J -—- (23 10 (0 


30 0Q000Q000608 600 


2b OA God Gg Ca GO Oy Od Cb 


ee ee ee ee es 


( 
¢ 
t 


TE “aa THE?! 
fo=Y2 

Ya=l 

al SS 
YaasvasVYo 

S\[B 9 Us 

Else 
HsmeENtsmooth(Q .~3a ,fsat) 
YaayYa/Hanm 
ENO IF 

ENO IF 

Axf lel \=sXa 
Vy (l=? )s¥a 


CSA VelNa-Xmin) Sfx 


—_— — se ome 


— — 


YVa(Ya-YmaindeSfy 

IF Sym: 3 THEN PRINT “SiM® 

If Sym¢4 THEN PRINT °SR 1.4,2.4" 

PRINT "PA" .X,Y,"" 

IF Sym>3 THEN PSINT “SR 1.2,1.8”" 

IF Sym=4 THEN PRINT "UC2 ,4,99,9,-98,-4,9,9,9,4,0,;° 
IF SymeS THEN PRINT “UCT 8,99 .-5,-5 ,-3,5,3,5,3,753" 
TF Sym=G THEN PRINT "UC9.S.3,99,3.-9,-5 ,2,3,93" 
IF Syme? THEN PSINT “NEG -S. 3 (932-259 .6 0 -oecs: 
NEXT £ 

DEESP 

ASSIGN @Fils TO » 

SND IF 

PRINT "PU SM” 

BEEP 

INPUT “WANT TO PLOT A POLYNOMIAL (f=Y 92M)?" Oke 
TF Okho=wl THEN 

BEEP 

PQINTES TS | 

PAINT USING “4X ,""Select Line type:"”"” 

PRINT USING “SX ,""Q9 Selid tine"** 

PRINT USING “SX ,""I Nashed*"" 

POINT USING "SX .°°2,,,S Longer tine - dash’*” 
INPUT fon 

PRINTER IS 7@S 


SEcP 
INPUT “SELECT (@=LINEAR ,!=LOS(X ,Y!)" ,Ilag 
lornt*!] 


PAeLSoaly 

IF Tuowl THEN 

Sees 

INPUT “DESIRE TQ SET % Lower and Upper Limit (10Y Oani?" Txlim 
IF fxlimeQ THEN 

XL1L=@ 

“ula? 

ENO IF 

TE lalime! THEM 

See 

INPINT “ENTED 4% Lower Limit” 11 
CEES 

eee See hea ee tec cc 
EMO IF 

EMO ff 

EN9 ¢astt) TO dul STEP “XsteovcS 
bens lens! 


PgaPNPal sivas 
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TE Tuoce! THEN yva= ss 1000 


eee min ese © 


Met Xae-Nein 4S. 

re vii@ THEN Y=C 

IF Y 10@ THEN GOTS 14162 
Oy=2 

IF Lon=t THEN Idf=len MOC 
IF Iopn#2 THEN Idfelten MOD 
IF Ion#3 THEN Idf=Ien MOD 
TE Toned THEN Idfelen MOO 16 

IF Ipn=S THEN Idfelcn MOC St 

IF Idfet THEN Fuel 

IF Pus@ THEN PRINT “PA" XY ,"PD" 

TE Pye] THEN PRINT “Pav vy y “DL 

NEXT Xe 

PRINT “Pu 

GOTO 1292@ 

END IF 

BEEP 

INPUT “WANT TOC QUIT (1#Y Q9N)?7" Iquit 
IF Iquit#=t THEN 14240 

E0TO 12822 

PRINT "PU Sma” 

SUBEND 

SUB Ststs 

PRINTER IS 701 

J=@ 

K=Q 

BEEP 

IF Islet=! THEN ASSIGN @File TO P_files 
BEEP 

INPUT “LAST SUN No?(Q=QUIT)" Nn 

IF Nn#@ THEN 14720 

Nn=Nn-J 

S~=2 


wo ® FJ 


Sy=@ 


S220 

Sxs2=Q 

Sys2@ 

S2zs70 

FOP T=! TO Nn 
J=J+i 

ENTES @File;0,T 
H=Q/T 

57=57+C 
S*22S>st+Q°2 
Sy=eSy+T 
SyseSys+T*2 


® SreSs+h 


C22=Sest+H*? 


Noe: 


22 Qave=S:/Nn 


~~ er Ge 


— ww hw 


S 
7C Sdevi=SOR(ABS(iNnes, 
c 


TevesSy/Nn 
Havestscz/itn 
tie bln a 
one CNS ae 
\ 


SO leet Nin) 


Patt) 


Sdevnh=SOR( 48S! (NrsSe 
SCh=120*Sdqevh/Yayve : 
SQ=l0@*Sdevag/Csve 
Se OCs lca tls 44 
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Peat ateees | tS 
se MLE 


e 


Shed US Al Se ea Oi ee a ee (bm 
sires If 
CPeINT USTiG “!1* ~ “RUN Htuse Sco. Oda SdewgQ Thetab SdevTt*” 


v= | 

PRINT USING “tix ,0O 202% ,O.SDE ,!% .SD.50) (Sh BG ee NGG. See) see oe ae 
ve ,St 

B0TO 12229 

ASSISN @&:le! TQ « 

PPINTER [S$ ! 

SUOCND 


= Ww — —) et tom ¢ 


14273 


14929! 


1493Q 
1424@ 
14959 
1496Q 
1497@ 
1429Q 
1499Q 
1SQQ@Q 
15019 
1$@2Q 
'SQ20 
1S@4Q 
'¢Q@c@ 
1S2cg 
16979 
15299 
1£99@ 
161ag 
'S11Q 
19129 
1¢179 
'€142 
1¢1c¢Q 
'S!6a 
1G17a 
1g! 


ss, 
ee 


io ww 


SUB Coef 

COM /Cely/ ACI1@,19),C¢(10) 84S) N Ieent Ope [iog, [fn ,fgjain,Mjain 
pccp 

INPUT “GIVE A MAME SOR C8OSS-PLOT FILE” Cof8 
CRCATE QOAT Cof3,2 

ASSIGN 9File TO Coft 

oecPp 

INPUT “SELECT (Q=eLINEAR ,1=LOG(X ,Y))" Ilag 
Seep 

INPUT “ENTER OIL PERCENT /-t=STOP!" Beep 

IF S8en<@ THEN 142979 


Gell Poly 

OUneUt SFile;Sas et +) 
GOTO 14819 

Aol SN crits, 1e 
SUSEND 


SUC ULlsantCh Cs) 

COM 7 Wr lo roi be el eae heu 

OIM Emfi ts} 

WLISON PLOT SUBROUTINE SETESMINE CF ANDO CI 
Seco 

INPUT “ENTER DATA FILE NAME* Sites 
ecco 

PRINTER [Ss 1 
SPRINT USING “4N.""Gelseet cation: ~” 

PRINI USING, “4% °° §@ Vary Cieand Cis 
PRINT YSING “4x ,"° { Fix CF Vasey 01 °"*"* 

Po TNPeuSING aX..." ° 2 Vary Ch Pie) Cio 2 
INPUT “ENTER OPTION" Icfix 
PRINTER [S$ 7Q1! 

TS Tofix=9 THEN 169072 

IF [efix:@ THEN Seco 

IF fofix«e! THEN INPUT "“ENTES 
TF fefi~e2 THEN INPUT “ENTER 
PErINTee rs 1 

INPUT “Want To Wary Coeff? 19¥ O=N)" Icccef 
TE Tecoafs! THEN [NPUT “ENTER Cocee” 2 
COINTER 5 741 

TS Lefs:<29 OR Tefs.02 THEN Cfa=.9Q4 

IF fefi.3! THEM Cf aadgé 


—~ ee ~~ & 


Caf 
Gy 


a= 


St: 
© oo 


af=! THEN %r20 
: 
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1679@ PRINT Oc DO: Kou 
IS21@ ASSISN @£&ilte TO Fils 
10$77Q@ ENTER @File:Nrur O2t 
PEE3@ PueDoeLOS(Oe/O: d/l ls 
1S24@ Sr=Q 

1$275@ Sy=@ 

1625@ Sxy=2 

1$27@ S»2=@ 

15280 Sy2=@ 

1§6290@ FOR Ts] TO Nerun 
15300 ENTER @File:Boo ,Told¢ ,Emfi*) Ems 

15310! CONVERT EMF’S TO TEMPERATURE 

16320 FOR Je! TO § 

1S33@ TOS ENT vsvl(Emf(y)) 

16$34@ NEXT J 

1S$25@ Tsste( TC) d4T(S) 36.5 

1536@ Tavg=T(S) 

1S237@ Graded? .9O55+.104599*Tarve 

15380 TdropwEmf(7)e1.£+5/410.*Grad) 

1$29@ TavgesT(Si-Tdrop*.5 

1540@ IF ABS( Tavg-Tavge ):.@1 THEN 

1541@ Tavg=( TavgtTavge }*.5 

16422 GOTO 1S379 

1543@ £NO IF 

15449! - 

1S4SQ@! Compute properties of water 

1546@ KweFNkKul Tavg) 

1$47@ Muwa=FNMuw( Tavg) 

1$49@ Cow=FNCpw( Tavg) 

19490 Prw=FNPowl Tavg? 

1SS0@ Rhow=fNRhowl( Tavs) 

1SS1@! 

1SS201 Compute properties of Freon-!14 

1SS30 Letdetldrop/LOGC (TCS -Tssati/( TS -Tdreop-Teat )} 
1654@ TF J3=@ THEN 

1SSS@ Twelsat+Preimid 

15569 ThetabeTu-Tsat 

1SS7@ Ise! 

VSooo END [F 

1C59Q TFa(Tw+Tsat *.F 

1S6QQ@ Rho=FNRho! TF} 

15510 Mu=FNMu( TF ) 

1S62@ KeFNK(TF ) 

1SE3Q ComENCo( TF) 

ISE4Q0 Beta=FNBetal(Tf } 

1SES® Hf owFNHF gl Tsat) 

1SES@ Ni=Mu/Rho 

1ISE7Q Alohsek/(Qhos*le ) 

1SE2Q PreNi/Alpha 

1SEg9e! 

'S7@@!) Anslys: 

1S7!@'t COMPUTE MOOT 

1S72C A=PTe(De"2-01°2 }/4 

1ST2Z2 OePl Do 


e Uetetlvedten ltt 
\ 


Poe medcuean sec, c-crems( >. S1SSSE—5-Fre sto SICOSE=S-F meet] 


E-~1@)3}) 
175A QO=Mdot*CoweTdrona 


1S76Q' COMPUTE NATURAL -COMNVECTIVE HEAT-TSANSFES COEFF] 


1677@' FOP UNCNHANCED ENDS} 
1S79@ Hbar=190 
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ee oeuse-a-e ms ss 


oe eo 


1S79@ Fes(HbarsPO/( houses) ,Sely 

16€9Q0@ Tanh="NTanhi fe? 

16810 Theta=Thetabs¢Tanh/Fe 

1687O Kra(9.9)+GetsaeThetahsDo*seTanhn/(FeeN: *Aloha|a))”  ISESb? 
160350 Vya( 146 .S59/Pr "69716930 9/27) 

16840 Hbarcek /Doe! 4+ 207 vA /Vy 72 

1S9S@ IF ASS((Hbar-Hberc}/Hbar): .Q@@1 THEN 

'S8SC Hbare(Hbart+Hbaerc }e.S 

159870 SOTC 15790 

1699@ €ne IF 

1$890! 

15900! COMPUTE HEAT LOSS RATE THROUGH UNENHANCED ENOS 
15912 Qt =(HbarePeKou seh )* S*Thetab*Tanh 

19920 Qc=Q-2°C! 

15930 AsaPr-+O2eL 

16940! COMPUTE ACTUAL HEAT FLUX 

1S$95@ Qde=#O2/As 

16960 IF Iefix=@ OR Icfi>>1 THEN Cefel/CF*C( 1. /Re) 


19970 ThetateCsf/CosHfge(Qdo/(MusHfg)*( .O14/69.819Rho))*.5)°C1/Rre oP “1,7? 


1598@ Ho=Qdp/Thetab 

16990 Omegs=Ho/Cf 

16092 Uc=Q/(PI*DoeLeLmtd) 

16010 VUuemMdot/(RhoweP1*0i*2/4) 

1602@ ReweRhow*Vweli /Muwa 

16032 TwieTwtQeRu/(Pl Doel ) 

16049 Gama=Kw/DieRew*.8*Prw*( 1/3. )*(Muwa/FPNMuw( Twi) )*.14 
16@S90!1 PRINTER IS 1 

1605@ Ywe(!./Uo-Rw )}*Omega 

1627 XweOmegs*Do/(SsmaeDi } 

16080 Sx=S>+Xw 

16@9@ Sy=Sy+Yu 

1E10@ Sxy=Sxy+YuseXw 

1E11@ Sa2aSxel+XweXw 

16128 Sy2eSyl+YurYu 

16120 NEXT I 

19$14@ ASSIGN @File TO « 

161S@ M=¢S>*Sy-NrunsSxy 1/(Sx*Sx-NeuneSad 3 
16160 C=(Sy-Sx*M)/Neun 

1617@ IF lefixe@ OP Iefix#t OP Icfix=e4 THEN 
1618Q@ Cic=#=1/M 

1619@ Cfeel/C 

1620@ ENO IF 

1621@ IF lIecfix=! THEN 

16220 Cic#1/M 

16232 Cfe=Cf 

I$24@ END IF 

162S@ IF Isfixel THEN 

16262 Cie=Ci 

lec7O <Cfeal > 

1€2280 ENC IF 

16290 IF ABSC(Ci-Cic}/Cic): .00! OR ASS/(CF-Cfe)/CFc)}>.001 THEN 
1CZQ@O Crisl(CiszOic de § 

1ETIS Chel CK+C he 3+. 

1$[2@ POINTES IS 1 

16320 PRINT USING “zy .“" Csf = °° MZ.3DE,2%,"* Ca = "" M@egoe” cemen 
1€74@ POINTER IS 7aI 

1635@ SOTO !S21@ 

16760 END If 

1C27@ PRINT 

[CZOC CMINTER IS 7e! 
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PeSs2eE PINT eine "25" ."" CF oe a 

16302 SPOIMT USTME “BN  “"accumen eee Oe e SOe. sora Wes 
16419 SRINT USING “SX  ""“CALCULATED ow Mie coe gt Me, 50e eater 
1€328 PAINT 

16429 SumlsSy2l- oS dae eee eM 2 ee ot cei er es Newnes e 

f64d9 PRINT USING “19XN,°"Su or Saar eae 2 te, COS cece 

16459 PRINT USING “!9X% .“ "Co See 2 OOo ee 

ISsE@ SUSENDO 

16479 DEF FNMuw( T) 

16499 482487.9//T+135.15) 

16@SO9 MurZ.46-5-°19°4 

1SS@@ RETURN Mu 

1§6S19 FNENO 

1§S29 SEF ENCowl(T > 

Paso couse ve leoosd—-(+( 2. SSeS -S-fe(s 22361E-Sto 71a see-7eT 


16540 RETURN Cows! 9@Q9 

1SSSO@ FNENO 

16SS@ CES FNPRow(T} 

16S7@ Ro#999.92946+To( .91269-Te(S. 88251 5E-3-Tel .234147E-S)} 
16593@ RETURN &8o 

1659@ FNENO 

1660@ DEF FNPrul(T} 

1S$61Q0 Prw=FNCowl T)*FPNMuwl T>/ENKul T) 

1662@ RETURN Pry 

1663Q@ FNENO 

1664Q@ QEF FNKul T) 

16650 Xa( T+273.193/273.15 

16660 Kwe~. 922474 0(2.939S-Ke( 1. 90Q7-K eo .S2S77-.97F44eX))) 
16679 RETURN Ku 

16689 FNENO 

16699 SUB Plot 

novoo COM /Caly? ACO o* CCG? 84S) Noo toemteego, lag slin join nioin 
167!'@ OM 8s(3} 

16729 INTEGER fi 

'673@ PRINTER IS ! 

16740 [dv=@ 

1S7S@ gece 

16760 INPUT “LIKE QCEFAULT VALUES FOR PLOT (1#Y ,Q@=N)?° Idv 
1$779 Ope=9 

1§729 SEEPS 

1679Q@ PRINT USING “4X ,""Select Option:”*” 

16900 PRINT USING “SX ,""@ @q versus delta-T*"* 

1681@ PRINT USING “SX ,""! hk versus delta-T*”” 

169829 PRINT USING “GX ,""2 4h versus q**" 

16830 INPUT Qgo 

1§94@ gcce 

1S8SQ INPUT “SELECT UNITS (@=SI ,!=ENGLISH)” Tun 

168S@ PRINTES S$ 7S 

16979 fF dveol THEN 

1¢99Q@ gece 

16299 INPUT “ENTER NUMBER OF CYCLES FOR X-AxIS" Cy 

16999 Seep 

16319 INPUT “ENTER NUMEER OF CYCLES FOR Y-AXIS” Cy 

16920 SEcP 

16939 (<NPUT "“ENTES MIM X="IALYE (MULTIPLE OF 10 3" 
16249 9ECP 

1§9SQ INPUT "ENTERS MIN 7-UALUE (MULTIPLE OF 10)" Yamin 
1€96Q@ ELs 

16279 [© p62 THEN 

1§299@ Sy=2 


fmin 


[11 


Cu25 
tmias,! 


ENO fF 


Yninz,! 

Ymin=!99 

ENO [fF 

TE Osoe 2 THEN 

TS TuneQ THEN 

Cys 

Cx=2 

Xmin=1Qaa 

Yaine! 2g 

ELSE 

Cys 

Cand 

¥min219Q 

Yminzl@ 

ENO [fF 

ENO [F 

ENO IF 

BEEP 

POINT “IN;SPEsIP 2300 ,229@ 9590 $390; ° 
PPINT °SE 9,199,0,1@0@:TL 293° 
SFuelOQlex 

Sfy=(@Q/Cy 

BEEP 

TNPLUT “WANT TO 3Y-PASS CAGE? (I=Y @=N)" 
IF [syp2t THEN 19640 

PRINT “PY 9,9 PQ" 

Nn2#Q 

FOR [=t TO Cx+! 

XataXminet Orc i-t) 

IF [=Cx+! THEN Nret 

FOR J=t TO Nn 

IF J=t THEN PRINT “TL 2 Q” 

TE J22 THEN PRINT “TL It Q” 

MYa=Xatel 

NOLSGT(Na/Xmin)*Sfx 

PRINT “PA";X,” .O¢ XT3* 

NEXT J 

NEXT [ 

POINT “PA 10@ ,@;sPU; ” 
PRINT “PU PA QO,9 2D" 
Nn 

FOR [1 TQ Cy+! 
YateYmine!O*c[-!) 
IF [*Cy+! THEN Nn! 
£98 J=t TA Nn 

IF Jet THEN SOOINT “TL 2 
fe Jal THEN PRINT "TL ! 
YaeYate] 
VaLET(YasYain)sSFy 
PAINT “PA DO ':¥‘¥T" 
NEMT $ 

sewvT ¢ 


OMINT "94 Q.19@ "L @ 2” 


oe ~~ 
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17ESA Now 

176e@@ Foe y=! TO Cyt 
I7TEID KXatekminel@"rr—-!) 
17VEZO IF YeCyvstt THEN Nn=!] 
1763@ FOP J=1 TO Nr; 
17640 JF Ja! THEN SSINT 
176S@ IF J. 1 THEN S8INT 
17SS@ XaaXate! 

17670 XeLGT(Xa/¥mindeSF;. 
17680 PRINT “PA":s¥ " 100; XT" 

17E9@ NEXT J 

177Q@@ NEXT I 

1771@ PRINT “PA 102,100 PU PA 10@,@ PO” 
17722 New 

1773@ FOR T=! TO Cyt 

17742 Yat#Yrmine!@* (I~!) 

1775@ IF leCy+! THEN Now! 

1776@ FOR J=1 TQ Nn 

1777@ I& Jai THEN PRINT “TL Q@ 2” 

1778@ IF J>1 THEN PRINT “TL @ 1" 

17792 Ya=sYateJ 

P7SC0C WeeGT( Ya/vmam)+Sfy 

1781Q@ PRINT “PD PA 10@,°,Y,°YT” 

178@2@ NEXT J 

17830 NEXT I 

17840 PRINT “PA 10@,10@ PU" 

1785Q PRINT “PA @,-2 SR 1.6,2" 

178680 Ti=L6TlxXmin? 

1787@ FOR T=#1 TO Cx 

1788@ Xa=eXmine1O*(l-1) 

1799Q X=#L6T(Xa/XmindeS Fx 
179Q0@ PRINT “PA";¥ " @;" 
1791@ IF [:°9#@ THEN SEINT “CP 
1792@ IF 3!:.@ THEN PfINT “CS 
S30 Tiel i+i 

17940 NEYT 1 

17°9S@ PRINT “98uU 94 @ OQ" 

179S@ Trsel6tlYain) 

179720 Y1I@=1@ 

1798@ FOR rea! TO Cys! 

17990 YasYmine1Q*(I-1) 

18@@@ YelLStva/YainieSfy 
foe Ueen tN, “FAO. "sy¥,"° 

Pee eee Nee Geema = 25°L810;SR =) 23le sls” 

18Q@3@ Tris!.+! 

19@4@ NEYT f 

J ShGIS (6) 2) [oye 

19@6Q@ INPUT “WANT USE DEFAULT LASELS (12Y Q@=N!?7" Iq} 
Boe Cee eat} OT REN 

 slbleke (sysic)s 

19@2@ INPUT "ENTES X-LAGEL” Viabels 

'g!@e@ gcca 

1911@ INGUT “EmTEa vy-LASE!" Viabels 

We ac ENS IF 

12130 IF Oo0.2 THEN 

[2140 SSINT "SP 3 2;Pu 2&4 40 -14;" 

19159 PPINT "LOT: PP -1,.€ 5 © ©Q 3.7 0 PII;PD | -a, 
WETEC POINT “UP-F-98 5 -1:tGse+;C& .f ' 3" 
P= Te CRF elen=@ THE! 

10100 PPINT "LOY ¢eyn 


4-4 
(I 


-—- —2 


9g ©} 
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10190 E: SE 

1$2@CQ SSINT "LOy (ey y" 

18210 END IF 

22a ENO TS 

18623@ IF Oposl THEN 

1824@ LF lune THEN 

122S5@ PRINT "SP 1.6 2;FU P& 42 .-14;LBq (Wém;SR 1,1.5:3PR @.59,1;L82;SR 1.€,2:98 

Q@.5 <tsle- 

18260 ELSE 

198270 PRINT “SP 1.5 ,2:PU PA 34 -14:lBq (Btu/hrsPR .5  S30e > - Pee = S.. 

19279@ PRINT “LBft;°P .6,1;SR ! .1.5:482;S5R 1.5 ,2:P8 .€ -1:18):”" 

(S2SOsSNGclr 

1930@ ENO IF 

1821@ IF Opo#@ THEN 

19322 IF Iunme\@ THEN 

1823@ PRINT “SR 1.5 ,2:PU PA -12 40:02 @,1sLBq (Wem:PR -1 0.5:58 1,1.5;:LE2:SP ! 
.£€,23;9R 1,.5;85" 

18354@ ELSE 

1825@ PRINT “SR 1.5 ,2:PU PA -12,32;301 O,ts;LBq (Btu/hrsPR -.S,.5;L8.:PR .S,.S;" 
1836@ PRINT "LEft;SR 1,1.5;3P2 -1,.5sL82;PR 1,.5;:SR 1.5,2;L8)" 

18570 END IF 

183@@ ENO IF 

18280 IF Oped@ THEN 

1840Q@ IF Iun=@ THEN 

1941Q@! PRINT “SR 1.5 ,23PU PA -12,39;:D01 O,1tsLBh (W/msPR -1,.5:SR 1,1.53L82;3SR 1 
.5,28PR .S,.53" 

18420 PRINT “SR 1.2,2.4;3PU PA -12,37:01 O,tsLBhsPR t ,@.53LBo3sPR -1 .@.53L8 (W/m 


18430 PRINT "PR -1,.5:SPR 1,t.S:L82;:SR !.6,2:PR .§,.5:L8.3PR .5 ,Q@sLBK)" 
1844@ ELSE 

184S@ PRINT "SR 1.5 ,2;3PU PA -12 28:01 O,13sLBh (Stu/hrsPR -.S,.5:L8.;PR .5,.5;3~ 
1946@ PRINT “LBFt;PR -1,.5;58 1,!.5;892;SR 1.6,2;8R .5,.5;:L8.;PR .5,.5;L BF" | 
19470 ENO IF 

1848@ END TF 

18490 IF Idi!=#@ THEN 

18S0Q@ PRINT “SB 1.6 ,2;8U PB SQ -16 CP" :-LENL XlabelS)/2:"S;LO" sMlabelS:*" 
1851@ PRINT "PA -14, S@ CF OG "s-LENS Ylabel€)/2eS/E: "Ol O,1sLO’sVlabe!l$;"” 
18520 PRINT “CP @,2@ Or" 

18S3@ ENO IF 

18540 Ipn=Q 

128550 NXilet E+E 

1856Q Mule-1.E+6 

18572 Icn=Q 

185938 Ifn=Q 

lee oe reas! 

18©6@2@ PBEce 

18610 INPUT “WANT TO PLOT OSTA FROM A FILE (1=Y .@=N17* 01 

'SEZO IF Of=t THEN 

18E€3@ BEES 

19642 INPUT ENTER THE NAME OF THE DATA FILE” © files 

'9SS2® ASSIGN @F ite TOD fF let 


'SEBC@SBEE] 

So CVEcee 

See ee ee TES TEE CESINNI TE RPUN NUMCE Rs Oa 

veep 2's = 

1€7@2 INPUT “ENTE THE NUMOEE OF y-y PAIRS STORED” Naairs 
1S) Cea 

1OF2@0 THRUT "CONWECT DATA WITH LINE tls¥ @en19~ fo) 

1¢" SG eSee 

127 4OR Renee (S) 


{14 


SSO oa INE USING “ts 


46460 €2 62 (302 6-3 63 
Q10 to -3I Min & ¢-i 
Qgd ad do Oo BB @A 


oO 2 10 18 6O 11o 10 10 


eee erie “soy 


OOINT USING "SN “" 
Se este. Si 
PEINT USING “SX 
POINT USING “Sv "" 
INPUT Sym 

PRINTES TS Fes 
POINT "PY OL” 


TS Symat THEN SINT “Ss 


IF Sym=al THEN PPEINT 
TE Sym=as THEN POINT 
TF Md. 1 THEN 

EQQ fat TA (Md-1 3 
ENTER @FilesyYa,<a 
NEXT ! 

ENO IF 

FOR [=! TO Neairs 
ENTER OF ilesYa Xa 
Tf [=! THEN Q1#Ya 


Right-side-up 
Uo-srde-dcws 


IF [*Noairs THEN Q2=Y3 
IF Opo=l THEN Ya=Ya/Xa 


IF Qpos2 THEN 
Q=Ys 

VaeYs/Na 

Xa=Q 

ENO [F 


IE NacXt) THEN Nilavs 
IF Xa>Xul THEN Xul#Xa 


IF fun! THEN 
TF O90¢2 THEN Xa=Xae 


TE On9:0 THEN Yaayae, 
IF Opo=@ THEN Yasvae. 
IF Opowl THEN XaeXae, 


ENO IF 
X@LSTlXa/Nmindeske 
“aL GT(Ya/Y¥min)Sfy 
K 3=Q 


ae 
Sal 
Sie 
SPY 


CALL Symb(¥ ,Y Sym [cl Kj) 


69TO !9270 

IF Sym>3 THEN PRINT 
IF Symc4 THEN PRINT 
IF fcel=@ THEN 

PRINT “PAX NY ** 
ELSE 

POINT “PA* yy "on" 
ENO Ie 

TP Sym-3 THEN PRINT 
TF Symead THEN SOINT 
IF Sym=G THEM ORINT 


T© Sym=G THEN SQINT | 


IF 3yme7 THEN SSINT 
Nowr ft 

OOINT “OU” 

oOecce 


— “ow! 


“Sm” 
eo ee ee 


INPUT “WANT TQ LASEL7 6 yay Qand" That 


f£ flabe! THEN 
EQINT "SPQ; 3Pr" 


aeee 


Peas), Veh 


[15 


13559 “Clabes 

19560 yiaheas 

19279 INPUT “ENTEO INITIAL 4% ¥ LOCATIONS" .Xlab lab 
Peso Nbtev bab— 

19590 (¢beaflahs+g 

104@9 FOINT “SO 1,1.5" 

19414 OPINT “SM;PA" “tt Yet “Lg z Heat Fria“ 
iad eat tess t= 5 

19420 COINT “PA” NEE Yet "LG Or,t Flux Mare" 
1944@ 'F Syme! THEN SSIMt “SMs” 

18469 'F Sym=l THEN SSINT “SM+" 

19469 T& Syms = THEN PPINT °SMo” 

19479 Klab=! 

12a9@ SNO fF 

13230) Sore. 

19500 CALL Symb(Xlab ,Ylab ,Sym,Ic! Ky) 

199!1Q@ SSInT “SP !,1.93SM" 


19529 IF Sym¢a4 THEN PRINT “PR 2,9” 

139939 SEES 

189549 INPUT “ENTE® BOP” Bop 

18650 IF Sop<!1Q THEN PRINT “PR 2,9:L9"°;:Bap;"" 
19S6Q IF Bop>9 THEN PRINT “98 .£ 9:19" 3Bap:** 
195790 Ihf=9 

19630 IF Q!1°>Q2 THEN [hf=! 
19999 IF fhf=Q@ THEN PRINT "9R 4 .Q;:!9 
1996990 'F thf=! THEN PRINT “PR 4 9:L9Dec" 
196810 PRINT “S88 2 ,OsL9"s0_ Fi tass”” 

19629 POINT “*SPQ;SP!;SR 1.5 ,2° 

19530 Ylsb<Ylab-S 
19949 ENO TF 
19650 gece 

196690 ASSIGN 9F:! 
P9670 M1 TsMe 1/7 1<2 
19699 Xul=Xule!l.2 
1S69@' GOTO 93949 
19720 ENO [fF 
1971Q@ PRINT “Sy SM" 

19729 SEES 

19729 INPUT “WANT TQ PLOT A POLYNOMIAL ‘/1#Y¥ ,9=N!7" Ga_on 

1974@ TF Go_one! THEN . 

9769 Sfp 

12979 SRINTER [Ss } 

P3779 PRINT USING °*4x% ,““Select line tyge: ' : 
19799 PRINT USING "SX ,""2 Sol:d line""" 
19799 PEINT USING “SX .“"1 Dashed”""" 

199899 ORINT YWSING “SX ,""2,,,S Longer line - dash"”*" 
19819 INPUT fon 

poge@ SeIrNTER [S 705 

19S3G cece 

1994Q INPUT “SELECT (Q=LIN 1]2LOGIN YY)" Llag 

19950 fernt=! 

1998S9 CALL Foly | 
19979 fF Fred THEN 

19999 SEES 

Se CORT PUT ENTED NUMSSeSGr Cives [OC 0IN7 Sen 
199990 ENO Te 

raster crn =9 

eet legen THEN os iaell 

aoe ieee ag OP Lyorr=) 7 Pe 

199;30 FNS Tsa@ 79 = 


_ 


-« TQ « 
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“2 CAN 


moomdgegg 8 }) © 10 10 wo 1Oo wo 
2 Og Ooe |] @& © 3 10 10 1.0 10 10 

WIN in & in fd -=— &Y (0 (0 
QogqQnagaaGgasgyou0aeanoe @ & 


(2) OS) 3d) te) a) OU Oe) UO oS oe GS 


oO 


t 
{ 
¢ 
¢ 


INPUT “ENTES ¥ LOWER ANO UPPES LIMITS” YLl, Yul 
FO8 ¥x2#4 TO Cx STEP Cz/20@ 

XasXmine!Ords 

TF XacXLl OR XadXul THEN 279399 

IenzIen+! 

Py =Q 

TF ITon=! THEN [df2fen MOO 
TF fan=2 THEN Idf=fcen MOO 
IF {fpn93 THEN [df=len MCO 
TE [ened THEN [df=len MOO 
IF laneS THEN [df=fen MOO 2 
IF faf=t THEN Pus! 

IF S90"@ THEN YasFNPoly(Xa?) 

If Opew2 AND Llog=4 THEM VYaaXa/ENPoly( Xs) 

TE Qae"2 ANO Ilog=! THEN Ya=FNPoly!/ a? 

IF Opom! THEN YasFNPsly( Xa) 

IF Ya<cYmin THEM 203599 

IF Ya. Y!I1L OR VYadVul THEN 72QrzeQ 

IF Tuna! THEN 

IF Oso.2 THEN “aezXae! 9 

If Ope. 2 THEN YasYae.176! 

TE Opo0=Q THEN Yar¥ae.5!17 

IF Opo=22 THEN XazXae.517 

ENO IF 

YaLST(Ya/Y¥minieSfy 

KaLGT(Xa/Xmins*Sfx 

IF Y<@ THEN Y= 

TF Y>1@Q THEN SOTO 29390 

IF Pu2zQ THEN PRINT "PA" X,Y,°FO” 

IF Suel THEN PRINT “SA” X Y,"9U" 

NEXT Xx 

BOrNT “Sy” 

60TO 196020 

END TF 

Bees 

[INPUT “WANT TO PLOT SEILLY'S DATA? (IaY QeN)" Tely 
TE Qpce=0 OR Opec! THEN 

<LL23 

Mule l@ 

ENO (F 


TE Aeas? THERA) 
a? st he = ool eg! 


3 WW & t43 


= 
8 


Seo =) 98ee 
Cea SUCCe 


cNO [F 
ro felyet THE? 


i ealey 


yi 


SQES9 Yul2=79 

-Q@EE9 SEES 

29679 ([NPUT “ENTERS LOUERTANG Wee eR yy -CIR ts Hoe ee eee 
29E8C FOR v.20 TO ©. STEP C.°299 

ZTOS20 fastmine! OX: 


cOSGG {F Sa ti) OF Xa. Nal Pee sO 2 

o2s 12) XL =LGGt<s} 

~O6l00" [F Oeo=9 THEN Vimms S80l92 Fe) x) te ea eee 
~@ESO [Ff Oocal THEN ¥ bens Sil OS 7S- 1 +4b es ee ae a! oe oe eee 
2964@ [fF Oesel THEN VYis-S.7O75901E—-1 +Xb 2! 3. 75591 S0e-) 4 ee ere eae eee 
cUBSG)Ya=eie i y!> 

29569 YaLGT. la/Y¥uindSFy 


2079 NXYaLSTiXal/X¥mind+Sfy, 


: Vil THEN Foust 
29799 IF Y>Yu!l THEN SOTO 297290 
29719 IF Isue@ THEN PAINT "PA" XN yY "PO" 
29729 [F fpust THEN PRINT "94" XY, "PU" 
2073@ NEXT Xx 
2@74@ PRINT “PY” 
297S5@ ENO IF 
29769 SEES 
29772 INPUT “WANT TO PLOT ROHSENOW CORRELATION? (1#Y .Q@=N)" Irohs 
29790 IF lfroakse! THEN 
29799 YilelS 
~-980@ Yul=92 
-981@ SEEP 
29929 INPUT “ENTES Tsat (Deg ©)" Tsat 
~-Q@82@ Csf=,CQ4Q i 
~984@ SEEP 
2Oge ae ibat, “ENTER er (GE&=0 904) cs. 
2@SEOQ ThaTsat+2 
39879 FOR Xx#9 TO Cx STEP Cx/290 
29890 XaeXmine1Q°Xx 
272899 [F XacX1L1 OR XadXu!l THEN 21179 
~-89Q@Q0 MlLe|LosgiNxa?) 
2091@ IF OQpo<c2 THEN Th=Teat+¥a/2 
20920 Rho=FNRho (TE) 
2Q@930 K=FNK( TE) 
29940 MusFNMu( TE) 
29950 CoeFNCe( TF? 
20950 Hfo=FNHfgiTsat) 
29972 Ni=Mu/Rho 
29990 Pr=CpeMu/K 
79990 OmegasUsf*Hfg/Cs*(( .9137°9. 91 -Rhels” .5/ (Muah ia’ )°l 1 (Sa aeeee 
210@Q0 [F Ope"e@ THEN Yael Xa/Omega)*Z 
"2191@ TF OQsoet THEN Vazi %3/Omega)*3/Xa 
(C20 tee eoRf THEN VaeXta Cl. /3)}/9resa 
~1929 [F Gpe=2 THEN 
~1949 ThesTsgt+Xa/Vae.€ 
219SQ@ [F& ABS TF-TFe). .3t THEN 
2'!Q9SQ Teal TK+AT Fs de & 
~!979 SOTO 29929 
Mee See aS 
~!9990>Sh0 Fr 
LEYAQ YELSTlValYminies hy 


a)! Oped ta mins sf. 
o!' Coa 

=!) SOM TE ou | 
PH'i@ fe ¢ val THEN THI17Q 
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e1cveo 
~!!F0 
ee] 
ated 
a 39 
ee occ 
eat 


ele. 
+ = i oe 


2) ea 
21749 
2!2S9 
212¢3 
elton 
21284 
a RS 1 
2! 590 
21319 
21529 
212278 
21340 
21250 
21362 
2:379 
213930 
21399 
271409 
21410 
21429 
7142@ 
71440 
21459 
714EQ 
21479 
21499 
71499 
21999 
21519 
21929 
2155 

21540 
21559 
21562 
21570 
2158 
21999 
21620 
~!16!Q 
21629 
2!529 
2!1€d9 
21E50 


2560 


[© fous) THEM FOINT "oan yoy “EQ” 


TS Tous! THEN CAINT "Oa" yoy “ol” 
MENT Xx 

OOrNT "OL" 

eno fe 

gecco 

TNOUT “WANT TO QULT « Nay Qen td” [qt 
Te Iqtal THEN T1240 

GOTO 19559 


2 399" 


SUS ese SG yee. 

HES Symes THEN POINT "SM" 

Pescyms THEN Se SINT “SR 1.4 (254° 

Yae=9 

© Ysa) THEN vada.9 

Lo ero THEM 

QQINT “PA X Y+V¥ad,"" 

eice 

SOuNWap ee 2 Cn) 2 a0 sar Ge 

ENO IF 

Peecy me senor ttt <SRalwe la: 

Pemovmaaeeen Colt. Co 429 ,9,-9,-4,0,0,3..1.,0: ° 
Lee oy te oennen PRINT “VCS 9 29 -3,,-S -3,9,6,9 cone os 
temo neogie nee iit) UCC .S. 5.929 ,35 ,-Jece4ae eo. os 


IF Syme? THEN PRINT “UCO@ ,-S.3 ,99,73,93,8,.9,73,793" 
TE Ky=!1 THEN PINT "SM;PQ 9,-.9" 

SUBENDO 

SUS Purg 

SEES 


INPYT “ENTERS FILE NAME TO SE DELETED” Fils? 

BURGE Ciles 

GOTO 21449 

SUBCNO 

SUB Tden 

SOMeres/ Cll} res) 

OIM Emf (1) 

DATA 9.19996991 25727.94369 ,-7673545.9295 789@rzcs9sg .31 
DATA -9747495599 5, 97699E+11 -2.561928413 3. 94079E414 


SenoTc Oe 


ela s|= 

Peui GIUE A NAME ©OR FILE TO SE CREATED [Files 
SECP 

[INPUT “SELECT TUBE (Q=WH THF ,2=WT)* Itt 

Bece 

Pe ot Sele cr THERMOCCUPTE TyYel CO=NEUTI=0C9)” .tsal 
ee ee en sm ee 

Soeore gen!) 62 les) 

eoctouecc ela. 9 Silas 

SUNEU oa Ce ties ft: 

J=@ 

Beer 


S'S7TQ'INPUT “CNTES MONTH, DATE AND TIME (MM:OD:HH:MM:SS)° Oates 
Syoce tule utes, CC; TO" .Cates 

SSssOvQureUT 799;°TO- 

Se COVEN Tes. 9S s;Cates 


{719 
eee 
a= 20 


= 
ev 4ac 


-ORNTEP [5 ! 


ae NG 
COIrNTr " Pa eden ama. kima {Ges 
BT 


me 


2) SO see ei Ne eos Fi fy Cw oe foece 
2!76Q Te way THCY 

2!77Q POINTER FS Ta! 

21782 SB8INT 

— ee eeeeent * Month ,.daee sna tunes eae 

2190Q TE feeaQ@ TUEN OBINT USING “Ov ""Tube Tyee: Wieland imooth” 
219!Q IF [bb=e! TUEM SBIMNT SING “19% ."“Tube Tepe Wish Slut" 
T1929 TE Tetst THEN POINT USING "10N “"“Tube Tyee Turbo-g""" 
~ }oeae es rt 

o) eee USING RIN | ees Tin bey Vie Ula 
a aSceee TNT eee ts 

~!9S9 k=! 

~!S7a Eno [© 

1389 SEEP 

21999 INPUT “ENTES SLOWMETER REAQING"” (Fas 

JVS@CeOUTeUT 700; 240 4b oeetd URI 

21919 FOR L=@ FO 4 

21929 SUTSUT 7993 "3S SA. 

21959 [TF 1:9 ANDO Led THEN 22010 

21240 S$=Q : 

~!98@ FOR [=@ TO 9 

219S@ ENTER 709;€ 

~!197@ S$=S+E 

21999 NEXT I 

21990 IF £=Q@ THEN Smf(9)*A8S(S/1Q) 

22900 IF L=4 THEN Emfe! }2Aesis/19) 

22919 NEMT L 

22929 OUTPUT 799;:"AR AF2@G ALS9 URI” 

22@2@ OUTPUT 7Q9;"AaS SA” 

Rad Po) ei 

22080 FOR 129 TO Q 

22960 ENTES 799: 

22070 Eto=Etp+E&t 

22999 NEXT f 

weege Stoecta/7e 

22198 TineOnTyaviEmFc i) 

221!9 TevePNiTvasv(EmFO9)) 

2aled oeadaay FoSSSot. tOasesestin 

22!2Q Mdot=3.96S7E-3+Fms*(3.61 ISSE-3-Fms9!9.9298SE-G-Fmse9( 1. 23899E-7-Ems24.51997 
Co1A\11 

22!40 Uwatdot/(1QQSsPI*Oi°2 94 

2215@ Tdrap=ftpe! .£+6/(10*Grad) 

22159 PRINT YSING *1@X ,3/00.00 ,4X%),1X 2.00 4X .MZ.40":Fms Tin, tev Vu*2 ,Tdrop 
22!17@ SESS 

22190 INPUT “WANT FO ACCEPT THIS DATA SET? (Cl=sy¥Y 92)" OF 

oo) SO? 

22282 TF Ok=|Q@ THEN 

con sn 

~oceo) SOTG 21929 

ere ole) SESS 


QUTPUT @File:Fus Emfle) Ets 
POINTES [S 79} 


PRINT USING “1¥ .3/00.00.4%!,1%,2 
poINTreo 1g | 

ez 

Pee tt Le TES e Se Sig Tees oars 
If Go ona! THEN 2I¢ge 

eno re 

ASSIGN 36:12 TO + 

2BINTED [5 7Q! 


.00 ,3X .MZ.10°:Fos Fin, leu Wu lee 


SET? 6 1=¥ 9am?" Goan 
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ese OS a CMT es eee TON MOTE: @* 22.” 6 tata Sets ya 
rlas 

2lZE@ Permres fs |! 

Pec es eco 

Sees es 5. Vsor* 

22289 Serres rs ! 

Pe.ue SeEeP 

Seay NPUTS Eats= Us Erle Name ,files 

oes 

22224 INPUT “Number of Data Runs” ,Nrun 

22440 INPUT “Os You Want a Plat Sr le? !=¥ 9=N)" Islet 
22499 gees 

ZI4EQ TE Lolota! THEM 

Seo NPUT. Grire Clot File Name” P_relet 

wu 48Q@ CREATE BOAT P_ Files 4 

22429 ASSIGN 9Ptot TO P_file8 


22599 ENO IF 

2ZE19 PRINTER IS 72! 

22E2ZO PRINT 

22529 PRINT 

22E42 PRINT USING “19% ,“"* Water Wel Wee? 
eaesOrMoclGN-SFile 19 Files 

22SE9 If Lalet=! THEN ASSIGN @Ftle! TO P_files 
22579 SOR Is! TO Neon 

225990 ENTER OFilesUa Us 

227599 T© I[slot=! THEN OUTPUT OFitel sa Uo 
22500 PRINT USING “ISN 9.90, 5X MZ.350E": Uw Uo 
225!9 NEXT f 

22529 ASSIGN @File TO » 


ZLEIC ASSIEN File! TO » 

22549 SQINT USING “ION ,"“NOTE: “" (22 ,\"°"* data sets are 
n.&:!st 

BeccoulPololote! THEN 

Become USING “19% "NOTE: “" 22 "° N=-¥ Pairs are 


n,9_fFile3 

22S79 ENO IF 

2-520 SRINTER IS ! 
2.899 SUSEND 

227@@ SUE Select. 
22719 COM /Idp/ Ide 
22729 Bees 

22730 SSINTER {S | 


22740 PRINT USING “4X | “"Select agettan:"*” 

2276@ PRINT USING "EX ,°* @ Takin 

Per eecere iNT USING "SX" ! EPletting data on Leog=toc6 
SeeOmeri neve ltiG “EX Ss Plotting data on Eimear” "” 
Z2279Q POINT USING “SX "" J Make cross-oleot coef Ft File’” 
T279Q POINT USING "Ex "" 4 Se-cirsculate uater"”” 
27999 OCMINT USING "Sx ,"" S Surge" "" 

229!9 PRINT USING “§X "" S T-Orce correctien”’” 

See OeeGINT ethic “6x “7 Seat Yo vErviae ~~ 

e29279 SCBNT Stine “Sv “" 9 Madefy X-¥ File*°* 

Eecao Sea UST NG “Sr * > 2 Meve’™ 

22259 SCBINT UISING “SM ""19 Comb/Fivuc’”" 

2IOEM INPUT Tdg : 

coe7] f& tde=Q THEM CALL Mais 

Boece eset Fuel) alt Piet 

22299 §© [4est "UEN Ceul Olin 

Ser ea sae ec TUE CA ise. 


[21 


agtored 


rea ft ler sea ancu 


wee fr les” ISA“ s8leu 


Oe Ss ae Se eC ele Mace 

22928 TE [doeS THEN! CAalt Surs 

22959 IF fdpwS THEN CALL [den 

72940 [© Pde=? THEN CALL Usor? 

229E9 6©& Tde=Q THEN CALL <,mad 

woeSO IS ace2 THEN Cee tee 

22979 TF Idez!Q THEM CALL Comb 

mage cle. o ehsh. a) 

papas heli els! ib velbe 

~2@9Q@ POINTES IS 1 

239rQ@ SEEO 

22929 INPUT “ENTER FILE MAME” Files 

2EQSEQ ASSIGN BFile! TO Files 

2394Q@ SEcecP 

235459 INPUT “ENTER NUMBER OF X-7 PSIRS” Noe 
22959 SEEcP 

22979 [MPUT "ENTER NEW FILE NAME” Filecs 
22989 CREATE SOAT Filecs,S 

23Q09Q ASSIGN @File2 TQ File2s 

23190 3EEP ; 

237110 INPUT “ENTER NUMBER OF X-Y PAIRS TO BE DELETEQ” Ndel 
23120 IF Ndel=@ THEN 23169 

2313@ FOR I=! TO Ndel 

23149 SEEep 

22159 INPUT “ENTER OATA SET NUMSER TO BE CELETED” Natl? 
2215Q@ NEXT I 

22179 FOS Jat TO Ne 

2I!99 ENTER BFilel:X,¥ 

23!99 FOR f=! TO Neel 

23299 IF NdfIi=J THEN 2224Q 

wae NENT I 

23229 OUTPUT BF rle2sXx Y 

Cau R IN J oly 

23249 NEXT J 

2Z2S9 POINTER [S$ 701 

Z225Q@ ASSIGN @Filel TO » 

wse'@ ASSIGN 9File2 TQ « 

2329@ SURENO 

25299 SUB Move 

23J0Q!' FILE NAME: MOVE 

woot! . 
23322 OIM Boe(S6),ACSE) 98(66) ,C(S6> ,O0(66>) ,€(SE) F(66) 5°66) 4(S6) J(66) K( G66) Le 
S6>,M(S6) 

23330 OTM Told3(S6 C14) NCGS) Veli GE) [re (S6) 
23242 SEES 

JSS eTHPUT OLO-FICS [6 MOVE. Oat ies 
woes SSSUSM GF iles TO Gl tarles 


ENTER GFilel:Neun Oates | dtel -Ldte2 Itt 

FAP ts} TO Neun 

ENTER @Frle2:Bcatl) folds! [' 

ENTER OFile2sACT} BCL) COL) OC LE) E60) FLL) GLY KOT) JCT) ROLY LOL) MOLY N 


ENTES SFileltsUri [) fret) 

NEXT f 

ASSIGN @F:ile2 TA s 

Beco 

INPUT “SHIFT OLSK AND YIT CONTINUE” OF 
geco 

TMOUT “INPUT SQOAT SILE” S:ca 

COC eNee soot Oe) * «lat Gres 
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SEL 
sesce 
22519 
SoSce 
72CIN 


mcr) 
~2549 
wocee 
2ecco 
Boca! 
EoSce 
Beoce 
22599 
22518 
cegee 
Zoua¢ 


23640! FILE NAME: 


Seosco’ 
236568 
£3679 
23680 
2020 
eocce 
ee a 
UE IR 

eA7 20 
73742 
ea.50 
Esioo 
23779 
23720 
ea oo 
Zoec0 


AGcIGM CCE! yet TOegs files 

Sue econ eeu ore eeemacs! , occa a. ee 
FOR [=t TO Nrur 

OUTSUITRSE te! Sectie clas? 


OUTPUT SFiletsA td S94) cl) OCL) ECL) Ferd Scr) MOT) 368d KOT LOD ner: , 


OUip te SEL le | ect} teat 
NEXT [ 

ASSIGN 9Filel TO » 
PENAME -TEST- TO O2 
SceP 7909,. 5 
Sccp Agee. 
BEEP 1292,. 
PRINT “DATA FILE 

SUBENO 
SUB Comb 


Files 


t2f2 ts 


MOVEC™ 


coms 


OIM Emf(t2) 


SEEP 


INPUT “OLO FILE TO FI¥YUP” O2_files 
ASSIGN @Fils2 TO O2_files 

Ol_fileS=*TEST° 

CREATE SO0AT O! _file$,20 

ASSIGN Q@Filel!l TO Ol_files 

ENTEN SF ilel:Mrun Date? diel ,Ldtc2 Ist 

Neunm229 

[IF K=@ THEN OUTPUT GF ile! :Nrunmm Dates Ldtcl Ldter [tt 
FOS [=! TO Nrun 

ENTER QF ilelt;:3op ,Tolds Emfle) We Ir 

QUTPUT SF ile! :Bop ,Tolds ,Enf(e)d We re 

MEXT [ 

ASSIGN @Fite2 TO =» 


22819! QENAME “TEST" TO O2_files 


2p pay 
gesce 
23948 
23858 
EaJoe 
eoge9 
22399 
Eossd 
=359@@ 
wea e 
oes 
Chey 
-394Q 
77acg 


=e ws ow 


BEEP 292@9.. 
SEEP 4000,. 
BELO 499g,. 
BEEP 


363 


INPUT “WANT TO AQOQ ANOTHER FILE (1#Y ,Q9N!?° Obs 
TF Okael THEN : 

Kat 

SEEP 

INPUT “GIVE NEW FILE NAME” Nfiles 


ASSIEM ®File2? TO Nfiles 
6QTO 23730 
Enon IF 

ASSIEN SFile2 
SUBENOD 


Jia) 
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